FORTH 



Dimensions 



Volume 7, Number 2 



July/August 1985 
$2.50 



Menus 
in Forth 



Probabilistic Dictionaries 

Haclcer's LOCKER 

IVIass Transit Forth 

Another Subroutine 
Technique 



TM 

The ForthCard 



STAND ALONE OPERATION 

STD BUS INTERFACE 

EPROM/EEPROM 
PROGRAMMER 

RS-232 I/O 

PARALLEL I/O 

ROCKWELL FORTH CHIP 




Evaluation Unit 

$299 

Part #STD65F11-05 includes: 
Fortt^Card, Development 
ROM, 8Kbyte RAM, Manuals 



OEM Version as low as 
Part #STD65F11-00 $4AA 
does not include www 
memory or manuals 



The Forthcard provides OEMs and end 
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Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiring stu- 
dy and a thorough under- 
standing of Forth. 



Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 



Code and examples con- 
form to fig-FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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Menus in Forth 

by Frans Van Duinen 

Make life easier for users of application programs — this article includes defini- 
tions that make it simple for you to develop menus. 

Another Subroutine Technique 
by Donald Simard 

Want to call code subroutines from either colon or other code definitions, but 
can't afford the run-time penalty of earlier methods? This one may come closer to 
the mark for you. 

The Haclier's LOCKER 
by Cecil McGregor 

If a terminal supports line lock, one can use it from Forth to preserve useful data 
on the screen. Here's a simple way to do it. 

Mass IVansit Forth 

Bus passengers in this English city don't have to wonder when a late bus will 
arrive or whether an approaching bus is the correct one to board. A Forth 
application tells them, at the touch of a button. 

Forth Spreadsheet, Part II 
by Craig A. Lindley 

This source code accompanies the article and pseudo-code in the preceding issue, 
giving Forth users a customizable application program. (For a machine-readable 
version, turn to the end of the Usting.) 

Rochester Forth Conference 1985 

Forth programmers, project managers and visionaries from several countries 
convened recently to discuss software engineering, management and productivity. 
The result was an exciting display of Forth and its adherents at their best. 

Probabilistic Dictionaries 
by John S. James 

Have you wondered how a 60,000-word spelling dictionary can be compressed 
into RAM? Ultra-fast text searches can be performed using techniques pertinent 
to a variety of applications. 
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MOVE UP TO 16bit FORTH COMPUTING 

ENTER THE POWERFUL WORLD OF 
68008 PROCESSING TODAY 

FOR ONLY $399 



HC120 8MHz 
- 68008 CPU 
CARD 



SINGLE 
EUROCARD 
FORMAT 




TRIAL 
OFFER 
INCLUDES 



★ POWERFUL 16K ROM BASED LAXEN & PERRY'S F83 

★ COMPREHENSIVE 16K DEBUG PACKAGE 

★ BATTERY BACKED 24K RAM & CLOCK 

★ COMPLETE 80 PAGE MANUAL WITH CIRCUITS 

★ FULL MULTI-TASKING F83 FORTH SOURCE LISTING 

★ CAN RUN TOTALLY "STAND ALONE" 
ALL THIS FOR JUST $399 



HIGHSPEED 
CMOS LOGIC FOR 
HIGH NOISE IMMUNITY 
& LOW POWER CONSUMPTION 

1 MEGABYTE LINEAR ADDRESSING 

2 SERIAL PORTS - RS232/422/423 
20 PROGRAMMABLE I/O LINES 
REALTIME CLOCK 
HARDWARE WATCHDOG 
ON BOARD BATTERY BACK-UP 



Ni^^oO^ SHOW US 
^ ON YOUR ORDER 



AND WIN A PRIZE 



DISC BASED FORTH SYSTEMS ALSO AVAILABLE FROM THE HC RANGE. 
EXAMPLE: 

HC100 - 8 SLOT BACKPLANE $99 
HC1 10 - POWER SUPPLY 1 10/220/240v \please indicate) $199 
HC130 - DMA DISC CONTROLLER WITH 8K BYTES 

CACHE FOR SUPERFAST COMPILATIONS $299 
F83 FULL SOURCE CODE ON b'AI2y2 DISC (please indicate) $29 
AND MORE! - WRITE FOR DETAILS ADD $10 FOR SHIPPING 



80 PAGE SYSTEMS MANUAL 



$25 



SEND MONEY ORDER/CHEQUE WITH ORDER, ALL MAIN CURRENCIES ACCEPTED. DELIVERY 2-4 WEEKS. 



Ctroimix ltd. 



39 HIGH STREET, COWBRIDGE, SOUTH GLAMORGAN, U.K. 
TEL. (04463) 2409 8. 4661 TELEX498215 CF7 7AE 




standard Bearers 

Dear Mr. Ouverson: 

The Financial Services Division of 
Computone Systems has developed an 
applications language specific to in- 
surance using the Forth-83 Standard. 
We think the remarkable thing about 
our language is that it runs on 
8086/8088, 6502 and Z80-based mach- 
ines. There is a lot of talk about lan- 
guages being transportable, but we 
found that most of it really is nothing 
but talk. Without the new standard, it 
is not likely that we could have ac- 
complished the level of transportability 
that we have. 

Computone has been developing 
software in Forth for the past two and 
one-half years. Initially, Forth was dic- 
tated by the machine we chose to mar- 
ket. We began our support of addition- 
al machines by purchasing Forth pack- 
ages from outside vendors. 

One fact became clear early in our 
development phase: there was no gen- 
erally accepted standard and little con- 
tinuity in vocabularies and functions 
among the Forth versions we were 
working with. These differences be- 
tween versions prevented our applica- 
tions code from being as transportable 
as we needed. Eventually, we had to 
decide whether or not to continue our 
development exclusively in Forth. 

When evaluating other languages as 
possible substitutes for Forth, we 
found that several of them offered 
more complete development systems 
and more liberal licensing agreements. 
Many of the packages offered better 
speed and more thorough floating- 
point tools. On the other hand, there 
was still no language available that we 
could alter so that the applications 
code would be identical on all the 
machines we were supporting. We 
found that the better-supported sys- 
tems were expensive and had their own 
drawbacks: link/compile time, non- 
standard extensions, speed or size 
limitations and highly variable support 
for machine-specific devices, I/O, etc. 

Forth was one language that could 
be altered at the machine level. If the 



right version could be found for each 
processor we were supporting, adjust- 
ments could be made to the kernel via 
the metacompiler to develop the multi- 
machine applications language we 
needed. 

After some investigation, we found 
that several individuals had produced 
public-domain versions based on the 
new Forth-83 Standard. These versions 
were similar in philosophy and came 
complete with the source for their 
compilers, and had most of what we 
needed for development. 

Using the public-domain versions, 
we were able to extend the machine- 
specific code and duplicate the current 
language that our applications team 
was using. We found that by simply 
transferring the high-level code from 
one machine to another and recompil- 
ing, our applications would run on 
virtually all our machines. We elimi- 
nated the eventual need for retraining 
our staff and extended the useful life of 
the tools and appUcations we had 
developed. 

Ultimately, our decision to develop 
exclusively in Forth allowed us to cut 
our programming costs and develop- 
ment time drastically. We were able to 
simplify software development by re- 
ducing the number of systems we had 
to learn and use. We increased produc- 
tivity by reducing the number of ap- 
plication variations that had to be 
developed and supported. We were 
able to deliver the software faster and 
with far fewer problems. The final 
result was an increase in our bottom 
line, and after all, the real value of a 
language is in how it impacts profits. 

We are convinced that without the 83 
standard, our integration of language 
and systems could not have been 
achieved. The standard proved to be a 
rallying point from which individuals 
were willing to work to produce sys- 
tems which were compatible over a 
wide range of machines and available 
to the Forth community at low cost. 
The presence of a standard for high- 
level code only serves to make the 
language more transportable and use- 
ful to developers who work with an 



ever-increasing number of machines. 
The presence of standards within the 
community need not curtail the adap- 
tability of the language, but rather 
serves as a bridge to new solutions, 
tools and ideas. The new standard and 
its wide acceptance will help Forth gain 
the industry-wide credibility it deser- 
ves. 

Sincerely, 

Michael D. Pollard 
Donald S. Schrader 
Computone Systems 
Atlanta, Georgia 

Hore Today, EXITed Tomorrow 

Dear FIG: 

Hore {Forth Dimensions VI/6) 
provides a solution to the so-called 
"double- loop-exit" problem, as it has 
been referred to in other quarters. His 
solution entails the derivation of an 
alternative DO LOOP structure. 

Screen 1 shows yet another alter- 
native. In this solution, the system- 
dependent word DROP.IjOOP is created 
which, when executed, allows a normal 
EXIT (given as ;S in the example, as it is 
in a fig-FORTH dialect). 

DROP.LOOP does what the sequence 
R> R> 2DROP would do if it were 
included at the equivalent point in the 
definition of L0OK.UP. 

For those unfamiliar with the use of 
EXIT, it forces the end of the word, 
from anywhere in the word — with the 
notable exception of within a DO LOOP. 
DO LOOPS typically leave two or more 
values on the return stack. Since EXIT 
makes use of the value which sits below 
those two or more values, we have to 
dispose of them before we can exit. A 
little brute force (trial and error) ex- 
perimentation will show you how your 
system works. The only other element 
you may need to take care of would be 
a Forth-83 implementation of DO 
LOOP, which sets a flag to indicate 
being in a loop. Your system probably 
doesn't do this, but the flag should be 
indicated in your user variables if it 
does. 

The objection raised to the kind of 
maneuver presented here typically 
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comes from the Wirth school of pro- 
gramming — the solution used does 
not have a "common end." And, so 
the argument goes, without a common 
end, another person reading a long 
program will get lost and be unable to 
follow the flow of the program. Argu- 
ing from first principles, a la Dijkstra, 
it sounds sound. 

Evidence, however, has a way of 
modifying principle. IjOOK.up is, in 
fact, totally unambiguous. A stranger 
to the code (but not to Forth, of 
course) would understand immediately 
the action of the word. The difference 
which matters here is the size of the 
word: when the program is trivially 
small and program elements are self- 
descriptive, it is demonstrably good 
programming for a word with two 
distinct outcomes to have two distinct 
ends. 

A key distinction is whether the 
program is trivially small and is made 
of self-descriptive program elements, 
whose own elements have the same 
characteristics. Which, as I think about 
it, isn't a bad description of what a 
Forth program should — and can — 
be. 

I have included screen 2 to show 
some more uses of those interesting 
words COMPILE, [COMPILE] and 
IMMEDIATE. It was my fifth time 
through Starting Forth before I began 
to grasp them. Useable examples some- 
times teach better than either words or 
pictures. 

The word D0+ saves a little typing 
and eliminates the clutter of all those 
OVER + SWAP sequences we use with a 
range of addresses. LOOP.EXIT performs 
the functions of drop.loop and exit, 
as the F83 word does. I typically keep 
them separate in my programs, as I 
have found times when program flow 
is clearer if I do. 

Regards, 

Henry J. Fay 
Cazenovia, New York 

Missing Mathquiz 

Dear Marlin, 

I'd like to look at the Mathquiz 
program on pages 13-14 of Forth 



faCR 


* 1 







\ DROP.LOOP EXAMPLE HES 64F0RTH 


HJF 01MAYB5 


1 

2 


: DROP.LOOP 




3 


COMPILE R> COMPILE R> \ BRING LOOP INDICES BACK 


HOME 




L>unr^il_c. ^Ur\\jr \ ac.i r\iu Ur* I ric.n 




5 


! IMMEDIATE \ NATURALLY 




6 

7 


1 VARIABLE TABLE 2.3^4, 5^ 




8 
9 


: LOOK. UP ( VALUE/TABLE-ADDR/#ENTRIES ADDR' OR 


) 


10 


OVER + SWAP 




11 


DO 




12 


DUP 16= 




13 


IF DROP I DROP.LOOP ;S END IF 




14 


LOOP 




15 


FALSE ; 




SCH 


« 2 







S IMMEDIATE FUN HES 64F0RTH 


HJF 01MAYB5 


1 

2 


: LOOP.EXIT 






C COMPILE 3 DROP.LOOP COMPILE ;S ; IMMEDIATE 




4 

5 


: D0+ ( START-ADDR/«ENTRIES ) 




6 


COMPILE OVER COMPILE + COMPILE SWAP 




7 
8 
9 


C COMPILE 3 DO : IMMEDIATE 






Mathquiz 




SCH 


#72 







( PEOGHAM VARIABLES 


LDM 08/84 ) 


1 


VARIABLE CHOICE 1 CHOICE 1 1 Get and store players 


choice # ) 


2 


VARIABLE RESULT RESULT ! ( Store result for », + 


, &- ) 


3 


VARIABLE SCORE SCORE ! ( Maintain players # of correct ans ) 


4 

5 


VARIABLE LEVEL LEVEL ! ( Store difficulty leuel 


) 


fc 
7 


( Delay routines 


LDM 08/84 ) 


8 

9 


! DELAY 15000 DO LOOP ; ( Null loop time delay ) 




10 






11 

12 


i 2DELAY 25000 DO LOOP ; ( Longer time delay ) 




SCR 
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( TITLE PAGE--HATH-QUIZ ) 




1 


! STAR 42 EMIT ; 




2 


: STAHLINE 40 DO STAR LOOP ; 




3 


: BLANKLINE STAR 38 SPACES STAR ; 






: INFO-Ll STAR 14 SPACES ." MATH QUIZ " 




5 


14 SPACES STAR ( 




6 


: INF0-L2 STAR 13 SPACES ." VERSION 1.3 " 






13 SPACES STAR ; 




8 


•■ INF0-L3 STAR 18 SPACES . " EV" 




<? 


IB SPACES STAR i 




10 


: INF0-L4 STAR 12 SPACES ." LYLE D. MORTON" 




11 


12 SPACES STAR ; 




12 


: MATHTITLE PAGE STARLINE BLANKLINE 




13 


BLANKLINE INFO-Ll BLANKLINE INF0-L2 




14 


BLANKLINE BLANKLINE INF0-L3 BLANKLINE 




15 


INF0-L4 BLANKLINE BLANKLINE STARLINE CR CK j 




SCR 


#74 







( INSTRUCTIONS FOR MATH-QUIZ ) 




1 


! INSTRUCT 3 SPACES . " HELLO. YOU " 




2 


. " ARE ENTERING THE WORLD " CR 




3 


. " OF MATH-QUIZ. PLEASE ENJOY " 




4 


." YOURSELF!" CR ." EE ADVISED " 




5 


INVERSE . " THE UPPER LEVELS MAY REQUIRE" 




6 


CR . " A PENCIL AND PAPER. 






NORMAL . " GOOD LUCK! " ; 




8 

9 
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Dimensions (VI/6) but some of the 
screens seem to be missing. Words like 
GETNAME and ANSWER in the text, and 
many of the words shown in screen 83 
are not defined. Could I get a copy of 
the full set of screens? I'd like to set up 
the program for my wife's school kids 
and I'd like to study it to learn some- 
thing about keyboard input. 

Klaus Schleisiek has picked a wond- 
erful place as site of the euroFORML 
conference. I've been in Heilbronn and 
through the Neckar valley a couple of 
times. I'll be at the European FORML 
conference for sure. 

Best! 

Nathaniel Grossman 
Los Angeles, California 

Editor's note: Sincere apologies go to 
our readers and to author Lyle D. 
Morton who wrote "Mathquiz." In 
our issue VI/6 we unintentionally 
printed only four screens (numbered 
71, 79, 80 and 83). The accompanying 
screens 72-78, 81 and 82 are published 
here to complete the program. 

You Screen, I Scream 

Dear Marlin, 

The Forthodoxy commands that we 
Forth our programs into screens, the 
"natural unit of thought." As a con- 
firmed heterodox, I think it is time to 
examine what screens offer and do not 
offer, in contrast to their alternative. 

Right off, let's admit that screens are 
not a natural unit of anything except 
computer memory or CRT display. 
The mind doesn't inherently work with 
1024-byte units — certainly not when 
any number of those bytes can be 
blank. To the extent that screens keep 
us IK-bound, they make it difficult to 
deal with our code at flexible levels of 
detail and generality. 

To appreciate how disfunctional 
screens are, note their perfect analogy 
to the numbered lines of BASIC. Like 
line numbers, screen numbers are in- 
herently meaningless, presenting 
housekeeping chores and working 
against self-documentation. The pro- 
cess of copying, moving and inserting 
screens is tedious (even hazardous). 



SCR 

1 

2 
3 

5 
b 
7 
8 
9 
10 
11 
12 
13 
14 
15 



SCE 

1 



MATH QUIZ ADDITION MODULE 



AEIAELE ADD! 
AHIAELE ADD2 
ANSWER QUEEY 



ADDl ! ( addend # 
ADD2 I ( addend t 
EL WORD NUMBER DROP 



1 ) 

2 ) 



( gets players answer ) 



( 8 a 9 format problem ) 



ADDITION ( MAKE PROE 
LEVEL @ CHOOSE ADDl 
LEVEL 9 CHOOSE ADD2 
CE ADDl e . . " + " 
ADD2 @ . . " 
ANSWER 

ADDl @ ADD2 9 + DUP RESULT 
= IF . " CORRECT " 1 SCORE + I 

ELSE CE . " WRONG, THE CORRECT 
. " ANSWER IS " RESULT @ . THEN 



#76 

( SUBTRACTION MODULE ) 



GET ANS) 

< get difficulty level and ) 
( use CHOOSE to select addends ' 



( add the addends 2; store it 



2 VARIAELE SUEl SUEl I ( minuend ) 

3 VARIAELE SUE2 SUE2 ! ( subtrahend ) 

4 ■■ SUBTRACTION ( MAKE PROB-GET ANS) 

5 LEVEL e DUP CHOOSE + ( add random number to LEVEL ) 
b SUEl ! ( to make a minuend > subtrahend ) 

7 LEVEL @ CHOOSE SUB2 '. ( choose subtrahend ) 

CR SUEl @ . . " - " 

" = " ( 8 St 9 format problem ) 



8 
9 
10 
11 
12 
13 

in 

15 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



SUB2 @ . . " 
ANSWER 

SUEl @ SUB2 @ - DUP RESULT 
= IF . " CORRECT " 1 SCORE 
ELSE CR . " WRONG, THE CORRECT" 
. " ANSWER IS " RESULT 8 
. THEN : 



( get difference and store ) 



( MULTIPLICATION MODULE 



VARIABLE MULTl 
VARIAELE MULT2 
: MULTIPLICATION 



) 



MULTl I ( multiplicand 
MULT2 ! ( multiplier ) 
( get problem and players answer ) 



LEVEL g CHOOSE MULTl ! ( 
LEVEL 9 CHOOSE MULT2 I ( 
CR MULTl 9 . . " ♦ " 
MULT2 @ . . " = " ( 7 & 8 
ANSWER 

MULTl 9 MULT2 9 ♦ DUP RESULT 
= IF . " CORRECT' " 1 SCORE +! 
ELSE CR . " WRONG, THE CORRECT 

ANSWER IS " RESULT 6 . 
THEN : 



randomly choose 
randomly chooss 



multiplicand 
multiplier ) 

) 



format the probls 

( get product and store ) 



SCR t78 



DIVISION MODULE ) 



S 
9 
10 
11 
12 
13 
14 
15 



DIVIl ' ( divisor ) 
DIVI2 ! ( quotient ) 

( get 
{ get 
develop dividend ) 



divisor ) 
quotient : 



VARIABLE DIVIl 
VARIABLE DIVI2 

: DIVISION ( GET FHOB S ANSW ) 
LEVEL 9 CHOOSE 1+ DUP DIVIl 
LEVEL 9 CHOOSE 1+ DUP DIVI2 
» RESULT : CR 
RESULT 9 . . " / " 

DIVIl 9 . ."="(859 format the problem ) 
ANSWER DIVI2 9 ( compare quotient with player 
= IF . " CORRECT " 1 SCORE + ! 
ELSE CR . " WRONG, THE CORRECT" 

ANSWER IS " DIVI2 9 . 
THEN : 



Continued 
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BRYTE 1 
FORTH] 

INTEL I 
8031 i 

MICRO- 
CONTROLLERl 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 



SCR 

1 
2 
3 

5 
b 
7 
S 
9 
10 
11 
12 
13 
1* 
15 

SCR 

1 
2 
3 

5 
b 



10 
11 
12 
13 
14 
15 



#81 

( GREETING MODULE ) 

CREATE NAME 40 ALLOT 

: GREET PAGE . " WELCOME TO " 

." MATHQUIZ VERSION 1.3 I" ; 
•• GETNAME CR ." ENTER YOUR FIRST" 

NAME. " CR QUERY 1 TEXT ( get players name ) 
PAD NAME 40 CMOVE ; ( move string from PAD to NAME ) 
: PLAYER NAME 40 -TRAILING TYPE ! 
! HEGREET PAGE PLAYER . " , YOU " 

. " MAY CHOOSE FROM THE " CR 

. " FOLLOWING MENU : " CR ; 
! COMMENCE GREET GETNAME : 



#82 



LOOP a SCORE MODULE ) 
DISPLAY CR FLAYER ." , YOU " 
. " WERE CORRECT " SCORE @ DUP 

2DUP . ." TIMES " CR . " OUT OF 10." 

INVERSE 8 > IF ." VERY GOOD I " 2DR0P ELSE 

6 > IF . " NOT BAD!" DROP ELSE 

." BETTER WORK HARDER!" THEN 

THEN NORMAL ; 

10-ADD SCORE ! 10 DO ( these set up blocks of 10 ) 

ADDITION LOOP DISPLAY | 
10-SUE SCORE ' 10 DO 

SUBTRACTION LOOP DISPLAY 
10 -MULT SCORE ! 10 DO 

MULTIPLICATION LOOP DISPLAY 
10-DIV SCORE I 10 DO 

DIVISION LOOP DISPLAY ! 



( and zero the score at the > 



( beginning of each block ) 



hence we create "spaghetti loads" that 
make source code harder to follow. 
Indeed, the LOAD command is BASIC'S 
GOTO expressed at a different level. 

In addition to spaghetti loads, screen 
boundaries encourage "meatball 
code." Long, horizontally formatted, 
uncommented definitions are a natural 
result of a screen boundary that takes 
effort to cross — and the fact that 
blank areas get wasted. By the way, 
index lines — manually added redun- 
dance — are another space waster. 

So far, I've said that screens work 
against flexibility, space economy and 
self-documentation. Readability suf- 
fers from spaghetti and meatballs, plus 
excess baggage (screen number in 
decimal and hex, initials, date, index 
line and line numbers). Screen editors 
themselves are horribly weak, so even 
interactivity can suffer. There is hardly 
a virtue claimed by Forth that screens 
do not work against. 

When resources are limited, screens 
offer an easily implemented, interac- 
tive way to write programs in an in- 
cremental fashion. Fortunately, re- 
sources are no longer that limited, and 
file systems with powerful editors have 



already been implemented. The most 
natural, least restrictive way to pro- 
duce code is with good text editors or 
word processors. I won't dwell on their 
advantages over Forth editors. To 
anyone who has tried them, the dif- 
ference is obvious (in New York, "FIG 
edit" means "forget it"!). 

Besides offering greater power, ease 
and flexibility, a real editor conserves 
disk space (I know — big deal) while 
encouraging commenting and high 
readabiUty. With a good file system, it 
offers self-documenting file names for 
code modules of whatever size the 
programmer chooses. 

Any problems? One is indexing; 
without it, well-organized code in well- 
named files is important (a good idea 
in any case). Another problem is navi- 
gation between Forth and the editor; to 
which fast operating systems, multi- 
tasking, desktop utilities or non-screen 
editors within Forth are all solutions. 
Lastly, compilation speed may suffer, 
depending on how politely Forth re- 
lates to its host; the trend is toward 
politeness, which eliminates the prob- 
lem. 



Journey to the 



East 



We recently returned from the an- 
nual Rochester Forth Conference. The 
lively event was sponsored by the In- 
stitute for Applied Forth Research in 
cooperation with the Laboratory for 
Laser Energetics and the IEEE Com- 
puter Society. That says something 
interesting about the times if anything 
does. The directors and staff of the 
Forth Institute assembled a stimulating 
program that is reviewed elsewhere in 
this issue in necessarily brief terms — 
there were about sixty presentors. 

In this issue we make good on 
promises past. Due to a last-minute 
error, our last cover promised "Menus 
in Forth" but it was nowhere to be 
found inside — the article had been re- 
scheduled. This time you'll find it, 



honest! Also included herein are 
screens to accompany Morton's 
"Mathquiz." Thanks to the readers 
who wrote to request them. As a side 
note, columnists John Hall and Henry 
Laxen are absent, at least for the time 
being. 

Add to the Ust of FIG membership 
benefits a new one: major medical 
insurance. In the U.S. only, FIG mem- 
bers, their families and possibly their 
employees are now eligible for group 
rates. Current members will be receiv- 
ing notice in the mail with specifics 
about the health-care plan. Those of 
you who work independently or who 
run a small business may be particular- 
ly interested. 

And, finally, we would like to wel- 



come five new chapters of the Forth 
Interest Group. Members are now 
holding official meetings and other 
Forth-related activities at MAD Apple 
FIG Chapter, Madison, Wisconsin; 
Cache Forth FIG Chapter, Oak Park, 
Illinois; Permian Basin FIG Chapter, 
Odessa, Texas; Japan FIG Chapter, 
Tokyo and Kyoto, Japan; and Rock- 
land County FIG Chapter, Pearl River, 
New York. Welcome to each group, 
may your meetings prosper. For a 
complete listing of all international 
FIG Chapters, turn to the back pages 
of this magazine. 



— Martin Ouverson 
Editor 



I've used a file-and-editor system for 
three years, and in spite of dire warn- 
ings, the only lightning I've been struck 
by is my own programming speed. I 
think it is vitsil that we move toward 
elimination of the restrictions repre- 
sented by screens. Unless it can adapt 
to the progress around it, the Forth 
may not always be with us. 

Sincerely, 

Laughing Water 
Helena, Montana 

Division Floors Him 

Dear Marlin, 

I have never been one to pride myself 
on an understanding of divisional 
mathematics, and the debates between 
floored-to-zero versus floored-to- 
negative-infinity have escaped me. 
Well, you can imagine my delight when 
I recently had occasion to use division 
in a situation that illustrates the useful- 
ness of the latter method. 

In an appointment scheduler, the 
day has been divided into five periods. 
It is necessary to access prior and later 
periods. A single word perlodaway can 
handle the necessary calculations. 
adJustperlod# uses /MOD to calculate the 
number of days crossed and resets 



perlod#. This simple math is all that is 
required for any number of periods. 
The word dayinterval adjusts the date 
for a change of n days. It is dependent 
on the calendar module used and serves 
no purpose in this discussion. 

The periods used are: = dawn, 1 
= morning, 2 = afternoon, 3 = 
evening and 4 = night. If one begins 
with morning (setting perlod# to 1), 



then -7 perlodaway resets perlod# to -6 

and -6 5 /MOD returns 4 -2. This 
adjusts the date two back and resets the 
perlod# to 4 (night), as it should be. 
What could be simpler? 

I raise my hat to the standards team 
on this one. 

Zaffar Essak, M.D. 
Vancouver, British Columbia 
Canada 



Block # 1 

< periodaway Appointments 8505 12z) 

\ dayinterval ( n — ) Adjusts date by n days. 

O VALUE periodtt 

s ad justperi od# ( — ) 

periodtt 5 /MOD dayinterval \ -floored to negative 
TO period* ; \ infinity ideal ! ! 

: periodaway ( n — ) AT period* +! 
period* 4 WITHIN 0= 

IF ad justperi od# THEN ; 

EXIT 
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A Case of Brackets 
Editor, 

Henry Laxen's article in your 
March/ April issue (VI/6) was very in- 
teresting for his discussion of using j as 
a callable compiler. Looking into just 
how this works in the Perry/Laxen F83 
system, described in C.H. Ting's book 
Inside F83, I find a difficulty. When 
reading from the terminal, the ] in F83 
compiles only one line of text. Colon 
definitions in F83 can have multiple 
lines because compilation is continued 
by repeated ] calls in QUIT. No return 
into the definition of colon is made, 
but none is necessary. Yet, such a 
return into the defining word is just 
what is wanted from j as it is used in 
Henry's CASE, for example. 

This restriction seems inherent in 
trying to use ] as a callable compiler 
instead of some other word. The 1 is 
used not just to begin compilation, but 
is used with [ to enclose an interpreted 
expression embedded in the source text 
of a compiled definition. Such embed- 
ded expressions really require a single 
interpreter vectored back and forth 
from compiUng to interpreting by brac- 
kets, rather than caUing and returning. 
This interpreter, actually the word 
INTERPRET, already does everything 
Henry's ] does, if called with state set 
to compile. 

Like Henry's ], though, interpret 
only compiles one line from the ter- 
minal. Rather than change ], therefore, 
I would want to change INTERPRET. 
The repeated loop over query... 
INTERPRET in QUIT should be moved 
into INTERPRET SO that a single call will 
process all the lines. The loop must 
repeat only when input comes from the 
terminal instead of disk. The null word 
executed at the end of a line should 
return into this loop, while exiting 
from INTERPRET is done by ; at the end 
of a definition. 

One way to do this is by having 
INTERPRET call a component word 
(INTERPRET) to process each line. Null 
can then be simply EXIT, as in fig- 
FORTH; it exits (INTERPRET) at the end 



of a line. Semicolon can be defined 
simply as an exit one more level, to the 
caller of INTERPRET, which will be a 
defining word. The other work now 
done by semicolon — compiling EXIT, 
etc. to finish a colon definition — can 
actually be done in colon. Semicolon 
then can be used to terminate any 
compiler construct, not just those 
using colon. Henry's version of semi- 
colon lacks this generality. 

Henry described the compiling ] as 
an outgrowth of Forth-83, which 
eliminates state-smart words. (I still 
like state-smart words, but they really 
are irrelevent here. Besides, Forth-83 
does not define i as processing text; like 
Forth-79, it defines both brackets 
vaguely, as setting state so that text is 
"subsequently compiled" or "sub- 
sequently interpreted." Code using 
Henry's ] therefore may not work on 
some quite standard systems. 

On another subject, credit should be 
given to D. Val Schorre for his paper 
on "Adding Modules to Forth" in the 
proceedings of the 1980 FORML Con- 
ference. He presented the same tech- 
nique described by Carol Pruitt in your 
March/ April issue under the title 
"Local Definitions." 



Sincerely yours, 

George Lyons 

Jersey City, New Jersey 



PRODUCTS BY DR. C. H. TING 
INSIDE F83 

New edition ( perfect binding ). 
Everything you want to know 
about the Perry-Laxen F83 system 
but afraid to ask. 288 packed 
pages divided Into four parts: 
tutorial on F83 system, Forth 
kernel, utilities, and 8086 
specific tools. It is based on 
F83 Version 2.1 for the IBM-PC, 
but useful as a reference manual 
for all other F83 Systems. 

$25.00 

FORTH NOTEBOOK 

New edition ( perfect binding ). 
Large collection of examples of 
Forth programming style in 
solving moderate to complicated 
problems. Topics include: 

games. Instrument control, Image 
processing and analysis, 
microassembler, and many more. 

$25.00 

SYSTEMS GUIDE TO flg-FORTH 
The most authoritative treatise 
on how's and why's of the 
fig-Forth Model developed by 
Bill Ragsdale. The internal 
structure of Forth system. 

$25.00 

fig-FORTH FOR NOVA COMPUTER 

8" disk $50.00 

Source listing $15.00 

FORTH-79 ROM CARD FOR APPLE ][ 
ROM card $50.00 
Source listing $15.00 

PERRY-LAXEN F83 SYSTEM DISK3 
F83 (V.2.1) as dist.ubuted by No 
Visible Support, Inc. Please 
carefully specify your CPU, 0/S, 
and desired disk format. 

$25.00 per disk. 
PC-DOS DD Format: 

1 . F83/8086 for IBM-PC 
CP/M 8" SSDD Format: 

2. F83/8080 for CP/M 

3. F83/8086 for CP/M-^6 

4. F83/68000 for CP/M-68K 
IBM-PC CP/M-86 DD Format: 

5. F83/8080 for CP/M 

6. F83/8086 for CP/M-86 

7. F83/68000 for CP/M-68K 
Listing for IBM-PC F83 $10.00 

WIL BADEN'S F83X FOR APPLE ][ 
F83 adapted to Apple ] [ computer 
5.25" disk with documentation 

$25.00 
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Send check or money order to: 
Of fete Enterprises, Inc. 
1306 S. B St., 
San Mateo, Ca. 94402 

Mailing & Handling, 10« of 

order. Californians please add 

6.5)1 sales tax. 
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NEW BOOKS - "FORTH GUIDE" by Haydon. An exploration of the intricacies of MVP-FORTH $20, 
"FORTH Applications" by Weber $13.00 



00 



THE FORTH SOURCE 



TM 



MVP-FORTH 

Stable - Transportable - Public Domain - Tools 

You need two primary features in a software development package a 
stable operating system and the ability to move programs easily and quickly 
to a variety of computers. MVP-FORTH gives you botti tfiese features and 
many extras. This public domain product includes an editor, FORTH assem- 
bler, tools, utilities and the vocabulary for the best selling book "Starting 
FORTH". The Programmer's Kit provides a complete FORTH for a variety of 
computers. Other MVP-FORTH products will simplify the development of 
your applications, 

MVP Books - A Series 

□ Vol. 1, All about FORTH by Haydon. MVP-FORTH glossary with cross 
references to fig-FORTH, Starting FORTH, and FORTH-79 Standard. 
2"« Ed. $25 

□ Vol. 2, MVP-FORTH Assembly Source Code. Includes IBM-PC* , 
CP/M® , and APPLE® listing for kernel $20 

D Vol. 3, Floating Point G/ossary by Springer $1 

□ Vol. 4, Expert System with source code by Park $1 5 

□ Vol. 5, File Management System with interrupt security by Moreton $25 

□ Vol. 6, Expert Tutorial lor Volume 4 by M & L Derick $1 5 



FORTH DISKS 

FORTH with editor, assembler, and manual. 



□ APPLE by MM, 83 $100 
^ □ Macintosh by MM, 83 $1 25 

* □ ATARI® valFORTH $60 

□ CP/M by MM, 83 $100 

□ HP-85 by Lange $90 
a HP-75 by Cassady $1 50 

□ IBM-PC by LM, 83 $100 
IBM-PC by MM, 83 $125 

* □ Z80 by LM, 83 $100 



□ 8086(88 by LM, 83 $100 

□ 68000 by LM, 83 $250 

□ VIC FORTH by HES, 

VIC20 cartridge $20 

□ C64 by HES Commodore 

64 cartridge $40 

□ TImex by HW, cassette 

□ T/S 1 0OO/ZX-81 $25 

□ 2068 $30 



Enhanced FORTH with: F-Floating Point, G-Graphics, T-Tutorial, 
S-Stand Alone, M-Math Chip Support, MT-Multi-Tasking, X-Other 
Extras, 79-FORTH-79, 83-FORTH-83. 



MVP-FORTH Software - A Transportable FORTH 
□ MVP-FORTH Programmer's Kit including disk, documentation. 



Vol- 



umes 1 & 2 of MVP-FORTH Series (All About FORTH, 2"i Ed. & Assem- 
bly Source Code), and Starting FORTH. □ CP/M, □ CP/M 86, □ Z1 DO, 

□ APPLE, □ STM PC, □ IBM PC/XT/AT, □ PC/MS-DOS, □ Osborne, 

□ Kaypro, □ MicroDecisions, □ DEC Rainbow, □ TI-PC, 
D NEC 8201 , □ TRS-80/1 00 $1 50 

□ MVP-FORTH Enhancement Package for IBM-PC/XT/AT Program- 
mer's Kit. Includes full screen editor, MS-DOS file interface, disk, 
display and assembler operators. $1 1 

□ MVP-FORTH Floating Point & Matrix Math for IBM PC/XT/AT with 
8087 or Apple with Applesoft $85 

□ MVP-FORTH Graphics Extension for IBM PC/XT/AT or Apple $65 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE Program- 
mer's Kit. Extremely useful tool for decompiling, callfinding, translat- 
ing, and debugging. $200 

□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. Gener- 
ates headerless code tor ROM or target CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. Use for 
applications on CP/M based computer. Includes public domain 



D APPLE by MM, 

F, G, &83 $180 

□ ATARI by PNS, FG, & X. $90 

□ CP/M by MM, F & 83 $140 

□ TRS-80;i or III by MMS 

R X, & 79 $1 30 

□ C64 by PS MVP, F, G & X $96 

Key to vendors: 

HW Hawg Wild Software 
LM Laboratory Microsystems 
MM MicroMotion 

MMS Miiier Microcomputer Services 
PNS Pinl< Noise studio 
PS ParSec 



FORTH MANUALS, GUIDES & DOCUMENTS 



C64 with EXPERT- 
PS 



2 by 



$99 



□ Extensions for LM Specify 



IBM, Z80. or 8086 






□ Software Floating 






Point 


$1 


00 


□ 8087 Support 






(IBM-PC or 8086) 


$1 


00 


□ 951 1 Support 






(Z80 or 8086) 


$1 


00 


□ Color Graphics 






(IBM-PC) 


$1 


00 


□ Data Base 






Management 


$200 



jjkD Thinliing FORTH by Leo 

Brodie, author of best selling 
"Starting FORTH" $16 

□ ALL ABOUT FORTH by 
Haydon. MVP Glossary 

□ FORTH Encyclopedia by 
Derick & Baker 
FYS FORTH from the 



□ 



Starting FORTH by Brodie. 
Best instructional manual 



$20 



$25 



$25 



$25 



Netherlands 

□ User Manual 

□ Source Listing 



$25 
$25 



source $1 50 

□ MVP-FORTH PADS (Professional Application Development System) 

for IBM PC/XT/ AT or PCjr or Apple II. II + or lie. An integrated system for 
customizing your FORTH programs and applications. The editor in- 
cludes a bi-directional string search and is a word processor specially 
designed for fast development. PADS has almost triple the compile 
speed of most FORTH's and provides fast debugging techniques. 
Minimum size target systems are easy with or without heads. Virtual 
overlays can be compiled in object code. PADS is a true professional 
development system. Specify Computer. $500 

□ MVP-FORTH MS-DOS file interface for IBM PC PADS $80 

□ MVP-FORTH Floating Point & Matrix Math see above $85 

□ MVP-FORTH Graphics Extension see above $65 

□ MVP-FORTH EXPERT-2 System for learning and developing 
^ knowledge based programs. Both IF-THEN procedures and analytical 

subroutines are available. Source code is provided. Specify □ Apple, 
D IBM, or □ CP/M. Includes MVP Books, Vol. 4 & 6 $1 00 

□ FORTH-Writer, A Word Processor for the IBM PC/XT/AT with 256K. 
^MVP-FORTH compatible kernel with Files, Edit and Print systems. 

* Includes Disk and Calculator systems and ability to compile additional 
FORTH words. $1 50 

□ MVP-FORTH Fast Floating Point Includes 951 1 math chip on board 
with disks, documentation and enhanced virtual MVP-FORTH for Apple 
11, II -h, and lie. $450 

Ordaring Inlormatlon: Check, Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.), VISA, MasterCard, American Express. COD'S $5 extra. Minimum order $1 5. No 
billing or unpaid PO's. California residents add sales tax. Shipping costs in US included 
in price. Foreign orders, pay in US funds on US bank, include for handling and shipping 



.^D FORTH Tools and Appllc. by 



$19 



D 



Feierbach 

□ The Complete FORTH 
by Winfield 
Learning FORTH by 

^ Armstrong 

Understanding FORTH 
by Reymann 
FORTH Fundamentals, 

□ Vol. 1 by McCabe 

□ Vol. II Glossary 
Mastering FORTH by 
Anderson & Tracy 

□ Beginning FORTH by 
Chirlian 

□ FORTH Encycl. Pocket 
Guide $7 

□ And So FORTH by Huang. A 
college level text. $25 

□ FORTH Programming by 
Scanlon $1 7 



□ 
□ 



a 



$16 



$17 

$3 

$16 
$14 

$18 

$17 



available, (soft cover) 

□ 68000 fig-Forth with 
assembler 

□ FORML Proceedings 

□ 1 980 □ 1 981 Vol 1 
^ □ 1 981 Vol 2 □ 1 982 

a 1 983 □ 1 984 each $25 

□ 1981 Rochester Proceedings 

□ 1 981 □ 1 982 □ 1 983 

□ 1 984 each $25 
Bibliography of FORTH $1 7 
The Journal of FORTH 
Application & Research 

□ Vol. 1/1 DVol. 1/2 
Vol. 2/1 DVol. 2/2 

V>*^DVol, 2/3 each $17 

□ METAFORTH by Cassady $30 

□ Threaded Interpretive 
Languages $25 

□ Systems Guide to fig-FORTH 
by Ting $25 

□ Inside F83 Manual by 

^ Ting $25 

□ FORTH NotelMOk by Ting $25 
Invitation to FORTH $20 
PDP-11 User Man. $20 
6502 User's Manual by 
Rockwell Intl. 
FORTH-83 Standard 
FORTH-79 Standard 



□ 
□ 
□ 



□ 
□ 



$10 
$15 
$15 



□ Installation Manual for fig-FORTH 

□ Source Listings of fig-FORTH, Specify CPU 



$15 
$15 



by Air: $5 for each item under $25, $1 for each item between $25 and $99 and $20 for 
each item over $1 00. All prices and products subject to change or withdrawal without 
notice. Single system and/or single user license agreement required on some 
products. 
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William F. Ragsdale 
Hayward, California 

"Ask the Doctor" is Forth Dimen- 
sions' health maintenance organization 
devoted to helping you understand and 
use Forth. Questions of a problem- 
solving nature, on locating references, 
or just regarding contemporary tech- 
niques are most appropriate. When 
needed, your good doctor will call in 
specialists. Published letters will re- 
ceive a preprint of the column as a 
direct reply. 

This month your faithful practition- 
er deviates from his usual format. In 
the last three issues, we examined aids 
to learning Forth. Interest shifts this 
month to news and commentary on the 
latest events impacting the Forth com- 
munity. The first stop on our morning 
rounds occurs at the Forth nursery, 
otherwise known as the Chip Hatching 
Department. 

Novix NC4000 Processor 

The hottest topic of interest in 
the Forth world must be the Novix 
NC4000P Processor, Charles Moore's 
embodiment of Forth in silicon. This 
sizzler of a processor gives about 
10,000,000 Forth instructions per se- 
cond (10 mips). Up to four Forth 
instructions (like DUP I +) can execute 
at each 125 ns clock cycle. A call takes 
one clock cycle and a return takes 
none! This rewrites the book on soft- 
ware, obviating interest in linear code 
and macros. 

To bring this topic into focus, we 
peek behind the scenes to witness a bit 
of the genesis of the Forth processor. 
The courtship began in October of 
1980. The moment of conception was 
on January 19, 1981. 

First things first. Forth, Inc. had 
decided to expand its Board of Direc- 
tors. Bill and Anne Ragsdale enter- 
tained Mr. John Peers at dinner in Palo 
Alto in October 1980, with the ultimate 
result of Mr. Peers being invited to join 
the Board. John Peers was the founder 
of Logical Machines, which had an 
innovative, extensible language called 
Adam. He was involved in robotics 



and in the quest for aware machines. 

The spark that set the Forth proces- 
sor development into motion came just 
two months later. We owe a debt of 
gratitude to Christine Colburn (presi- 
dent of Creative Solutions), who gave 
a $1000 birthday present to husband 
Don. Don had been examining com- 
puter architectures and had developed 
a passion to see the advantages of 
Forth directly applied in silicon. 

Don thus funded a one-day, project- 
organizing session with Charles 
Moore, Bill Ragsdale and a chip design 
consultant. This was the spark needed 
for Chuck to confirm that others were 
seriously in support of his idea for a 
Forth processor. 

John Peers saw the beauty of ap- 
proaching Forth from several levels. 
He founded Technology Industries in 
March 1981, with the encouragement 
of Chuck Moore and Elizabeth Rather 
of Forth, Inc. As the story unfolds. 
Forth Inc. merged into Technology 
Industries in August 1981. The charter 
of Technology Industries was to be an 
umbrella for three divisions of Forth: 
hardware, software and applications. 
Unfortunately, the full scope of this 
plan was not reached and the merger 
was rescinded in October 1982. 

The chip development still con- 
tinued, funded with the limited resour- 
ces of Technology Industries. Charles 
Moore demonstrated a color simula- 
tion of the processor in March 1983. A 
funding partner, Sysorex Internation- 
al, became interested in July, and by 
March of 1984 the Novix partnership 
commenced operation. John Golden 
transferred from Technology Indus- 
tries as general manager, and continues 
in the capacity today. 

SiUcon generation was almost anti- 
climatic. It took four years and a mil- 
lion dollars to get to the detail design 
stage. It took just seven months and 
seven hundred thousand dollars to 
realize the dream of an operational 
Forth processor in silicon. 

EDN magazine had the privilege of 
introducing the NS4000 in their March 
1985 cover article. John Golden, guid- 
ing light of Novix, says, "The EDN 
article put us on the map. Three hun- 



dred inquiries were developed. We 
found that Forth has friends through- 
out industry just waiting to show their 
management the opportunities." 

The first production run of develop- 
ment boards is nearly sold out. Mr. 
Golden says shipments will commence 
in the latter part of July with full docu- 
mentation and developmental software 
(by Gregg Bailey). Production units 
were demonstrated at the Silicon Valley 
FIG Chapter meeting and at the 
Rochester Forth Conference. Pur- 
chasers' names read like a who's who 
of technology. There are automobile 
manufacturers, a computer media firm 
and a computer company that is into 
fruit. The processor is even being con- 
sidered as a controller co-processor for 
a recent thirty-two-bit family. When 
queried on their motive, a spokesman 
replied, "We see this as a way to get a 
leg up on the rest of the world." 



Forth and Voice Mail 

FIG's own John Cassady is getting 
no end of attention in the technical and 
popular press. He was recently "dis- 
covered" by Infoworld columnist John 
Dvorak. Mr. Dvorak, you will recall, is 
fondly remembered for his quote that 
he has never seen a credible application 
done in Forth. 

He has met his match, as John 
Cassady recently introduced the Dyna- 
Com Voice Mailbox System. It is pro- 
grammed in Forth and is a honey of a 
product. Dvorak devoted an entire 
column in the San Francisco Chronicle 
to Cassady' s product and then gave it 
another hit in his Infoworld column. 
You may try the system and leave 
remarks for John Dvorak at his voice 
mailbox by calling (415) 763-2002. 
When the system answers, tone in 454. 

The system supports twenty-five 
users, each with his own addressable 
"box." Callers leave messages which 
may be interactively reviewed by the 
boxholder. But each boxholder may 
grant up to thirty of his friends their 
own guest mail boxes for replies! Im- 
agine 750 people with selective use of 
digitally controlled voice communica- 
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tions. The box is an IBM PC look-alike 
processor board with a hard disk, 
speech digitizer and Touch-Tone sig- 
nalling. From the outside, it looks like 
just another industrial box. But on the 
inside, the VMS has a heart of pure 
Forth. John Cassady was previously 
best known as the implementor of fig- 
FORTH on the 8080. He published the 
8080 assembler in widest use and is the 
author of the book Metaforth. 

The DynaCom system is to be de- 
monstrated at the Silicon Valley FIG 
Chapter meeting on July 28. Too bad 
our publication date means you will 
receive this issue of Forth Dimensions 
the following week! FIG even has its 
own voice mail box. For information 
on the next Silicon Valley Chapter 
meeting call (415) 763-2002 and tone 
in 44414. For a demonstration, key 
in 564. 

The Rochester Conference 

The Fifth Rochester Forth Confer- 
ence continues to recieve rave reviews 
from attendees. During early June, 
over 180 people were hosted by Thea 
Martin and Larry Forsley. Participants 
traveled from all over the U.S., Cana- 
da, the Netherlands, Germany and the 
U.K. The program featured ten papers 
on Forth computers, with three from 
Novix. Novix' Bob Murphy packed the 
house with the best rundown yet on the 
internals of the NC4000. 

Major firms are using Forth and 
appear to be making a significant 
commitment in their project work. 
High-visibility attendees at Rochester 
included Standard Oil, Bell Canada 
and the GM Delco Division. 

The working group on standards, 
presided over by Mahlon Kelly (no 
relation to Guy Kelly, Forth Standards 
Team chairman), got into the topic of 
transitions from Forth-79 to Forth-83. 
A significant attitude was expressed 
about the burden and value of shifting 
to Forth-83 from an earlier dialect. 
Some opinion was offered that system 
and application changes weren't jus- 
tified by the small perceived benefit. 

Switch or Fight? 

Forth-79's five-year lead has fi- 
nally produced a comfortable user 



base. Working group members asked 
"Why update to Forth-83? Is the ef- 
fort worth the improvement? What 
will be the common model of a full 
implemention?" 

fig-FORTH was the common model 
prior to Forth-79. MVP-Forth carried 
the FIG model forward, and has be- 
come the de facto model for Forth-79. 
F83, the Laxen-Perry model, is only 
now coming into its own as the leading 
contender for the Forth-83 Model 
sweepstakes. Your faithful servant of- 
fers a few opinions. (Who said, "Any- 
body can have the facts, but it takes 
real character to have opinions"?) 

First, it takes four years for a lan- 
guage standard to become accepted 
and popular. Do you remember the 
hue and cry about Forth-79? It was 
supposed to be the worst disease since 
the plague. Refer to your back issues of 
Forth Dimensions to check it out. We 
are two-and-a-half years into 
Forth-83. It will catch full swing in 
another eighteen months. Just wait! 

Second, the Forth Interest Group 
must abandon fig-FORTH. The system 
design and listings are four years be- 
hind the times, unsupported, impos- 
sible for the novice to self-install, and 
at cross purposes to the learning pro- 
cess. (The only viable replacement for 
the revenue that would be lost is a disk- 
based applications library, but this has 
its own set of complications.) 

Third, some complaining occurred 
at Rochester that the shift to Forth-83 
was being pressured upon those com- 
plaining. This is a touchy topic. Some 
standards are required. Building code 
standards, for example, are enforced 
by local governments. But Forth usage 
remains voluntary. The Forth Stan- 
dards Team went to special lengths to 
make this clear. Read the copyright 
notice on Forth-83, to wit: 

"The existence of a Forth Standard 
does not in any respect preclude any- 
one . . . from implementing, market- 
ing, purchasing or using products, 
processes, or procedures not conform- 
ing to the Standard." 

The complainers probably are react- 
ing to their perception of the transition 
around them, and divert attention to 
the ogre of enforced change when try- 
ing to cling to the past. My understand- 
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PolyFORTHII 

the operating system and 
programming language for 
real-time applications involving 
ROBOTICS, INSTRUMENTATION, 
PROCESS CONTROL, GRAPHICS 
and more, is now available for. . . 

IBM PC* 

PolyFORTH II offers IBM PC 
users: 

• Unlimited control tasks 

• Multi-user capability 

• 8087 mathematics co- 
processor support 

• Reduced application 
development time 

• High speed interrupt 
handling 

Now included at no extra cost: 
Extensive interactive GRAPHICS 
SOFTWARE PACKAGE! Reputed 
to be the fastest graphic pacl<age 
and the only one to run in a true 
multi-tasking environment , it 
offers point and line plotting, 
graphics shape primitives and 
interactive cursor control. 

PolyFORTH II is fully supported 
by FORTH, Inc.'s: 

• Extensive on-line 
documentation 

• Complete set of manuals 

• Programming courses 

• The FORTH, Inc. hot line 

• Expert contract programming 
and consulting services 

From FORTH, Inc., the inventors 
of FORTH, serving professional 
programmers for over a decade. 

Also available for other popular 
mini and micro computers. 
For more information contact: 

FORTH Inc. 

2309 Pacific Coast Hwy. , 

Hermosa Beach, t I 

CA 90254 I I 

213/372-8493 i I 

RCA TELEX: 275182 8 | = 

Eastern Sales Office T T 

1300 N, 17th St. I I 
Arlington, VA 22209 
703/525-7778 

'IBM PC is a registered trademark of International 
Business Mactiines Corp. 



FOR TRS-80 MODELS 1 , 3, 4, 4P 
IBM PC/XT, AT&T 6300, ETC. 



NGS FORTH 



A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL (XMPUTER AND 
MS-DOS CmPATIBLES. 

STANDARD FEATURES 
INCLDDEt 

•79 STANDABO 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI-SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

^MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICES START AT $70 

NEW<«>HP-150 & HP-110 
VERSIONS AVAIIABLE 



IIS 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, OA. 95055 
(408) 241-5909 



THE COMPLETE FORTH 

GETS A 
MAJOR UPDATE: 

MMSFORTH V2.4 



A total software environment; custom 
drivers for printer, video and keyboard 
improve speed and flexibility. (New TRS- 
80 M,4 version, tool) 
Common SYS format gives you a big 
395K (195K single-sided) per disk, plus a 
boot trackl 

Common wordset (79-Standard plus 
MMSFORTH extensions) on all sup- 
ported computers. 

Common and powerful applications pro- 
grams available (most witti MMSFORTH 
source code) so you can use them com- 
patibly (witfi the same data disks) across 
all supported computers. 

' Very fast compile speeds and advanced 
program development environment. 

' A fantastic full-screen Forth Editor: 
Auto-Find (or -Replace) any word (for- 
ward or back), compare or Pairs-Edit 
any two ranges of blocks, much more. 

' Temporary dictionary areas. 

' QUANs, VECTs, vectored I/O, and many 
more of the latest high-performance 
Forth constructs. 

> Manual and demo programs are bigger 
and l>etter than ever! 

I Same thorough support: Users Newslet- 
ter, User Groups worldwide, telephone 
tips. Full consulting services. 

> Personal Licensing (one person on one 
computer) is standard. Corporate Site 
Licensing and Bulk Distribution Licens- 
ing available to professional users. 




IT'S BETTER THAN EVER. 

The total software environment for 
IBM PC/XT, TRS-80 Model 1, 3, 4 
and close friends. 

• Personal License (required): 

MMSFORTH V2.4 Syilam Olik $179.95 

(TRS-fiO Mode^ 1 requires lowercase, DDEN. 1 40-track drive.) 

• Personal License (additional modules): 

FORTHCOM communications module .... $ 49.95 

UTILITIES 49.95 

QAMES 39.95 

EXPERT-2 expert system 69.95 

□ATAHANOLER 59.95 

DATAHANDLER-PLUS (PC only, 128K req.) 99.95 

FORTHWRITE word processor 99.95 

• Corporate Site License 
Extensions from $1,000 

• Bulk Distribution . . . trom $500/50 units. 

• Sonne recommended Forth books: 

STARTING FORTH (programming) 19.95 

THINKING FORTH (technique) 15.95 

BEGINNING FORTH (re MMSFORTH) . . . 16.95 
Slilpping/handlins & tax extra. No returns on software. 

Ask your dealer to show you the world of 
MMSFORTH, or request our free brochure. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617) 653-6136 



ing of the standards team's expression 
is: if your application is done in a prior 
standard, let it run. If you are consid- 
ering new effort, and want it to have 
the longest life, use the latest standard 
available. As a professional, you have 
a choice. 
Next Issue 

The clinic will resume addressing 
reader inquires in the next issue. Ma- 
chine-specific problems such as how to 
install fig-FORTH on a VAX under 
UNIX aren't of general interest. Ques- 
tions should revolve around Forth, in 
the manner of, "When < builds is re- 
placed with CREATE, does it have to be 
preceded by compile?" Until next 
time, I remain your obedient servant. 

For More Information 

For information on the NC4000P 
processor, contact John Golden at 
Novix, 10590 N. Tantau Ave., Cuper- 
tino, California 95014; (408) 996-9363. 

For data on the DynaCom VMS 
VoiceStar, contact John Cassady at 
339- 15th Street, Oakland, California 
94612; (415) 763-6636. 

MVP-Forth is distributed by Moun- 
tain View Press, Post Office Box 4656, 
Mountain View, California 94040; 
(415) 961-4103. 

F83, the Laxen & Perry Model, is 
available on diskette at $25 for IBM 
PC, CP/M 8080 and 68000, from No 
Visible Support Software, P.O. Box 
1344, 2000 Center Street, Berkeley, 
California 94704. 

The Rochester Forth Conference is 
held in June, organized by the Institute 
for AppHed Forth Research, Inc., 70 
Elmwood Avenue, Rochester, New 
York, 14611; (716) 235-0168. 

About the Author 

Bill Ragsdale has been using Forth 
since 1977 for personal and business 
projects. He is married to Anne, and 
they have children Mary, three, and 
Michael, one. The family recently com- 
pleted a Caribbean cruise with 250 
magicians. The ship offered computer 
classes on twelve IBM PCs, which Bill 
chose to skip. However, he was pleased 
to find MVP-Forth in the ship's soft- 
ware library. 



Menus in Forth 




Frans Van Duinen 
Toronto, Ontario 

Programs that display menus to 
show the various options available can 
be made very easy to use, especially 
for the novice user. This is particularly 
significant where the user gets minimal 
training and documentation (if any 
at all), such as with public-domain 
software. 

The menu program shows all options 
available at any specific point, i.e., 
now that you've selected option A, 
these are the available sub-options . . . 
Menus also tend to lead the program- 
mer along in how he organizes his 
material. Hierarchical structuring is a 
powerful way of organizing one's 
thinking: Think about the most impor- 
tant items first and ignore the details, 
then go down to a lower level and 
concentrate on the aspects of only 
one item, etc. 

Menus limit the number of options 
presented at any one time. With a 
single item per line, and after allowing 
for headings and such, you typically 
put on the screen no more than eight to 
fifteen items (and eight is better), with 
an entire line to describe each item — 
more if needed. That, too, makes for 
easier use, i.e., better programs. 

Even the expert user, who does not 
need all this detail, can be accommo- 
dated. Simply implement a key-ahead 
facihty. If the user knows he wants 
item A on this menu, then 1 on the next 
sub-menu and then sub-sub-item C, let 
him key AlC. Then simply skip direct- 
ly from the A-level menu down to 
whatever it is that AlC means or does. 

Building Menus 

Three things are involved in menus: 

(1) Display the text of the menu, 

(2) accept the menu option selected 
and (3) execute the code corresponding 
to that selection. 

Those are must-haves. For good 
measure, we'll also throw in (4) a Help 
facility and (5) the ability to back out 
of a menu without selecting any of its 
items. 



.\ Menu utility words - version 1 FVD28i^r84 
VARIABLE M# \ No of menu item & max 

.RDBC BASE @ DECIMAL .R BASE ! ; \ Display decimal no 
0M# ^# OFF ; \ Reset menu no to zero 

(.#") (S -> ) \ Define numbered menu entry 



1 M# +! M# @ 3 
R> OOUNT 2DUP + 
TYPE CR ; 

. # " ( S 

CX3MPILE (,#") 

(.#0") (S -> 
@ 3 .RDBC ." 
R> COUNT 2DUP 
TYPE CR ; 

AO" 



COMPILE (.#") 



.\ Menu Utility wards 
(.M") (S -> ) 
R> COUNT 2DUP + >R 
TYPE CR ; 
.M" SPATE § IF 

COMPILE (.M") ," 
ELSE 

ASCII " wcaiD ootwr type 

ENDIF ; IMMEDIATE 
M? (S max min -> no ) 
ASCII + SWAP 
BEGIN KEY >R 



.RDEC ." - " \ Show item no 
>R \ Step Return addr past text following 

\ & display 
-> ) \ Compile numbered menu item 
," ; BMEDIATE 
) \ Show menu entry #0 
" - " \ Show item no zero 
+ >R \ Step past text following 

\ & display 
(S -> ) \ Conpile menu item zero 
IMMEDIATE 



2 - Version 1 

\ Show un-numbered menu entry 
\ St^ past text following 
\ & display 
\ Canpiling? 



CR \ Show item text 



FVD28i^r84 



2DUP R@ -ROT BEHWEEN 
WHILE R> DROP REPEAT 
2DR0P R> ASCII - ; 



\ Get menu selection (0-9 max) 
ASCII + \ Set max & min as digits 
\ Get selection & save 
\ Infuture Check for ? or Esc 
0= \ Validate selection 
\ While not valid 
\ Return number 



Figure One 
First Version of Menu Word 



.\ Menus - Version 1 - exanple 
: .MHDR DARK .M" MXSBT Program" ; 
: .MtMEN (S -> ) \ Main Menu 

OM* .MHDR 

,M" -Mean Menu-" CR 

.#" Set printer" CR 

,#" Double density" CR 

.#0" Exit program" CR 

m# @ M? \ Get menu selection 

i 

\ Must be aQn5>leted vd.th CASE 

Figure Two 
Version One Example 
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DASH, FIND 
& ASSDCiATES 

Our company. DASH. hlND & ASSOCIATES, 
is in the business of placing ^ORTH Program- 
mers in positions suited to their capabilities. 
We deal only with FORTH Programmers 
and companies using FORTH. If you would 
like to have your resume included in our 
data base, or if you are loolcing for a 
FORTH Programmer, contact us or 
send your resume to: 

DASH, KIND & ASSOC IATES 
808 Daiworth. Suite B 
Grand Prairie TX 75050 
(214) 642-5495 
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Committed to Excellence 



I've included three versions of menu 
words. Each successive version is more 
elaborate and somewhat more difficult 
to understand. This progression from 
simple to reasonably complete is how I 
developed the various ideas. (This code 
is available on various RCP/M bulletin 
boards. The file MXSET.BLK is a pro- 
gram written in F83 to configure the 



Epson printer. Note that it is not a 
complete program, but rather a "Study 
in Menus." There is also EDITOR.BLK, a 
WordStar-compatible screen editor 
that I adapted to F83 from the original 
version published by Laxen in Dr. 
Dobb's Journal, September 1981.) 

Figure one shows the first approach. 
It is concerned primarily with display- 



A Menu support words - Version 2: .A" !ANS FVD28Apr84 
; lANS (S char -> ) \ Save allowed response 

PAD DUP C@ 1+ 2DUP SWAP C! + C! ; \ Update response list 

; (.A") (S -> ) \ Display menu itan 

R> OOUNT 2DUP + >R \ Step past tejct 
1- SWAP DUP C@ DUP EMIT \ Display lead char 
!ANS \ & save as allowed response 

." - " 1+ SWAP TSfPB CR ; \ Display rest 



.A" 



COMPILE 



(S -> ) \ Conpile nenu item 
(.A") ," ; IMMEDIATE 



A Menu response words - (HELP), UKEY 
DEFER (HELP) \ Help word for ? response 

: UKEiT (S -> A ) 

KEY DUP ASCII a ASCII z BEIWEEN 

IF ODF AND ENDIF ; \ Get upper case key 



FVD28i^r84 



VARIABLE HELP# 



\ Reference no for Help 



FVD28^^r84 



A Menu support words - Version 2: NEW-MENU 
VARIABLE (M-STK) OE ALLOT \ Stack of Menu RP@ & SP§ 
\ The IVfenu Stack (M-STK) maintains exit RP@ & SP@ addr for 6 
\ levels of menus. This is used by M-EXIT to abort current menu) 



STK-MENU 
R> RP@ SP@ 
4 (M-STK) +! 
USTK-MENU 
-4 (M-STK) +! 
NEW-SEL 

PAD ! 

HELP# ! ; 

NEW-MENU 
NEW-SEL 
STK-MENU ; 



( S -> ) 

(M-STK) DUP @ 2+ + 2! \ RP§ for calling wd 
>R ; 

( S -> RP§ SP@ ) 
(M-STK) DUP @ 2+ + 2@ ; 
(S help* -> ) 

\ Set new selection, not return addr 
\ Set help reference 

(S help* -> ) 

\ Clear screen & valid responses 
\ Where to return to an Esc 



A Menu - M-EXIT - Version 2 FVD29i^r84 
: END-MENU 

USTK-MENU 2DR0P ; \ End of itenu - clear stack item 

: M-EXIT (S -> ) 

USTK-MENU OVER RP@ 1 ABt»T" Bug in unstacking itenus" 
U< ABORT" Menu unstack error" 
SP! RP! ; 

(S exit current menu & return to calling level menu) 

\ Note - Should vrork but does not. „ , 

Continued 
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ing the menu. The word .#" compiles 
the text following it, and the run-time 
word (.#"). The word (.#") displays that 
text. It also displays the menu selection 
number for that item. 

M# is the variable for the menu item 
number. .o#" and (.0#") are used for 
menu item zero, if at all. M? accepts a 
single digit, zero up to the maximum in 
M#. The word .M" is used to display 
an item without a number. It's like ." 
but with a built-in CR. The .#" word 
is actually more complex than neces- 
sary. It does not have to be state depen- 
dent. That was done for some other 
experiments. 

This version does nothing to execute 
the code for the selected option. You 
have to define a CASE construct with 
words for each option. Version one 
works, but it did not satisfy me. I did 
not like the numeric selection (difficult 
to remember), and I wanted more 
features. 

A Better Version 

Enter version two (see figure three). 
Instead of using a counter, I used .A" 
and (.A") — the successors to .#" and 
(.#") — to build a list of valid response 
codes in PAD. By convention, the first 
character of the item text would be 
displayed separately as the selection 
character and would be added to the 
list in PAD. The first byte in RAD counts 
the number of entries. 

In this version, I also added a Help 
exit and an escape mechanism. MENU- 
SEL accepts the input and validates it. 
Valid responses are those in PAD, a C 
(break) to abort, ? for help and Esc to 
exit to the calling menu. 

We still have the word(s) to display 
the menu, MENU-SEL to get a valid 
response, and then a CASE to execute 
the selection, based on the index re- 
turned by MENU-SEL. 

Have a look at figure four. This 
is the main menu for the Epson set-up 
program. How many items are dis- 
played depends on the variable GTRAX. 
(There are more options on the 
printer with Graftrax than on the one 
without.) 

The problem is that now we have a 
variable length list of codes and a fixed 



.\ Define menus - Version 2 


FVD28Apr84 


: MENU-SEL . " ? " (S -> index ) 


BEGIN UKEY 


\ Get key & set index 


PAD COUNT OVER + SWAP 


\ Scan allowed responses 


DO OVER I C@ = 


\ -> char index flag 


?LEAVE 1+ JjQOP 


\ -> char index 


PAD C@ 1- OVER < 


\ Index past end? - yes 


WHILE DROP 


\ Drop index, check specials 


DUP 3 = ABORT" Break" 


\ Terminate on *C 


DUP ASCII ? = IF (HELP) ELSE 


IB = IF ft-EXIT ENDIF 


\ exit calling menu 


BEEP ENDIF 


\ No BEEP after Help 


REPEAT SWAP EMIT CR ; 


\ -> index 


(P Accept input key, & match against acceptable list, returns in 


dex. If not matched, abort on "C, HELP on ?, exit on ESC. Exit 


only on valid response . ) 






Figure Three 


Enhanced Menu Words 



: .TITLE DARK ." MXSBT - Printer Setup" CR CR ; 

: .MN3TR (S -> ) 

(GTR) @ IF \ Is this graftrax 

.A" KReset printer to defaults" 
.A" LSet uni-directional print on/off" 
.A" MSet bit 8 handling" 
•A" NSet graphics mode" 
.A" OHcne print head" 
ELSE 

.A" KSelect diaracter set" 

ASCII K DUP 2DUP lANS lANS !ANS !ANS \ Allign posn 
ENDIF ; 
\ Graftrax d^)endent features 

.\ Define menus FVD29Apr84 
: .MAIN (S -> ) 

.TITLE ." Main Menu" CR CR 

.A" ASet printer type" 

.A" BSelect character font" 

.A" CSet line ^cing" 

.A" DSet page size" 

•A" ESet to top of form" 

.A" FSet perforation skip" 

•A" GSet out of paper signal" 

.A" HPrint test" 

.A" IKeyboard to printer" 

.MN3TR \ Options specific to GTRAX/not 

•A" ZTo return to CP/M" ; \ Position dependent 

.\ Menus - MAIN FVD28i^r84 
10 CASE: :MAIN 

MX80/100 PONT SPACING PAGE 

KEYBOARD BYE RESET/CHAR UNI 

8BIT GRAPHIC ONE-WAY-1 BYE 

: MAIN 

NEW-MENU BEGIN NEW-SEL 

.MAIN IB !ANS \ Intercept Esc 

MENU-SEL -.MAIN 
AGAIN ; 

Figure Four 
Examples Using Version Two Menu Words 
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(positional) CASE statement. Every 
item in the menu had better always be 
in the same spot. The ELSE clause in 
.MNGTR enters dummy responses in PAD 
to ensure its length does not change. If 
Exit is the fifteenth word in the CASE, 
then MENU-SEL had better always 
return a 15 when Exit is selected! 

The escape mechanism, too, was 
troublesome. As a general facility, it 
should clean up the stack as well as 
exit. Since we are talking about return- 
ing to a calling routine/menu, a simple 
solution is to keep track of the position 
on the stack before calling the lower- 
level routine. Should that lower-level 
routine abort (error exit, etc.), simply 
restore the stack pointer to that known 
value. 

I generalized this to cover both 
stacks, and set up a little menu stack. 
On this is kept the value for the two 
regular stack pointers. This is to allow 
nesting of menus and returning one 
level at a time. I never did get it to 
work. It should — the concept is sound 
— but it is fragile code. Messing with 
the return stack must be done just 
right, or it will crash the system. 

The Ultimate Version 

Fortunately, by this time I had sol- 
ved the problem. Version three is a 
little more complicated, but much 
more readable. It actually works. 

In version three, the menu items and 
the corresponding execution word are 
combined. There is no CASE statement. 
Have a look at the sample in figure six 
first. .A" is now called .AX" and is fol- 
lowed by the name of a Forth word 
first and then by the text. (.AX") now 
not only puts the response code in PAD 
but also the address of the word that is 
to be executed should that code be 
selected. The first byte in PAD still 
counts the entries, which are now three 
bytes long. 

We have removed the positional 
dependence of the CASE statement. 
MENU-SELX gets the answer, validates it 
and executes the word whose address is 
stored immediately following. We have 
also done away with the menu stack. If 
the option is Esc, do nothing; don't 



execute any word, merely return to the 
calling word/menu. 

The Help concept is shown here in its 
more rudimentary form, a word called 
from MENU-SEL when ? is pressed. It 
uses the variable HELP# as set in each 
menu by NEW-MENU or NEW-SEL. The 
number in HELP# would indicate what 
help information is relevant for that 
specific menu. 

The one limitation I am aware of 
(and have fixed since) is that after a 
Help message is displayed, the screen 



should be cleaned up and the menu 
restored. I've done this by passing the 
address of the word that displays the 
menu to MENU-SELX, which will re- 
execute it after Help has been invoked. 

There it is. I hope it is of use to 
others as well. Feel free to use this code 
for any purpose that is legal and moral. 

Acknowledgments 

The Forth dialect used is Forth-83 as 
implemented by Henry Laxen and 



(P lANSX stores menu char 
: (,AX") (S -> ) 
R> DOP @ SWAP 2+ 



.\ Menu support words - Version 3: .AX" lANSX FVD28Apr84 
lANSX (S addr char -> ) \ Save allowed response 

PAD COUNT 2D(JP 3 + SWAP 1- C! \ Update count byte 
+ DUP 1+ -ROr ! ! ; 

rtn addr in pad, i^xSates offset) 
\ Display menu itan 
\ -> ward, text addr 
\ St^ return addr past text 
\ Get lead char 
\ -> addr char count addr 
\ Display rest -> WDrd addr, char 
\ & save as allowed response 
(P Displ menu item & store its select, char & rtn addr in PAD) 
: .AX" (S -> ) \ Cotpile menu word & text item 

COMPILE (.AX") \ leaves (.AX"), word, text 

[tXMPILE] • , ," ; IMMEDIATE 



COUNT 2DUP 
SWAP DUP 
DUP EMIT 
1+ SWAP 1- 
lANSX ; 



+ >R 
C@ 

-ROT ." 
T5fPE CR 



.\ Define menus Version 3 

MENU-SELX ." ? " (S -> ) 

BEGIN UKEY \ 

PAD COUNT OVEK + SWAP \ 

DO OVER I C@ = \ 

7LEAVE 3+3 +L0OP \ 

PAD C@ 1- OVER < \ 

WHILE DROP \ 

DUP 3 = ABORT" Break" \ 
DUP ASCII ? = IF (HELP) 

IB = IF EXIT ENDIF \ 

BEEP ENDIF \ 

REPEAT SWAP EMIT CR \ 

PAD + 2+ @ EXECUTE ; \ 



FVD28Apr84 



Get key & set index 

Scan allowed responses 

-> char index flag 

-> char index 

Index past end? - yes 

Drop index, check specials 

Terminate on "C 

ELSE 

exit MENU-SELX 

No BEEP after Help 

-> index 

Get selected word addr 



.\ Define menus - HELP 
: HELP CR CR HELP* § See help no: " . CR 

' HELP IS (HELP) 



FVD28/^r84 



Figure Five 
Execution Version of Menu Words 
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Michael Perry. It is readily adaptable 
to fig-FORTH, etc., though I don't 
know why anyone with an 8080/Z80 
system would use anything other than 
Laxen and Perry's F83. 

For those who are not aware, these 
two gentlemen implemented a meta- 
compiled version of Forth per the 
83-Standard and put it in the public 



domain. It includes all kinds of bells 
and whistles, is one of the best Forth 
systems around, and the price is hard 
to beat. Most RCP/M computer bul- 
letin boards around North America 
carry it as library SIGM154A.LBR and 
SIGM154B.LBR. Thanks Henry! 
Thanks, Michael! 



.\ Menus - using version 3 

MX8GX MX80 GRAFTRAX ; : MXIOGX MXlOO OlAFTRAX 
MX8DBX MX80 NDGIRAX ; : MX10N3X MXlOO NCXSTRAX 



FVD28Apr84 



: MX80/100 

2 NEW-SEL .TITLE ," Set Printer Type" CR CR 

.AX" MX8N3X ASet MX80" 

.AX" MX8GX BSet MX80 with Graftrax" 

.AX" MX10N3X CSet MXlOO" 

.AX" MXIOGX DSet MXlOO with Graftrax" 

MENU-SEIX ; 

\ Note that ," used will not skip leading blanks, hence only 
\ one blank before menu text (applies to .A" and .AX") 



.\ ^tenus - Line spacing. Page size FVD28;^r84 
SPACING 

3 NEW-SEL .TITLE ." Set Line Spacing" CR CR 
.AX" LS-6 ASet 6 lines per inch" 

.AX" LS-8 BSet 8 lines per inch" 

•AX" L&-72 CSet line spacing in 1/72 inch increments" 

(GTR) § IF 
.AX" LS-IO BSet 10.3 lines per inch" 
.AX" LS-216 DSet line spacing in 1/216 inch increments" 
.AX" LS-216-1 ESet 1 line spacing in 1/216 inch increments" 

ENDIF MENU-SELX ; 

PAGE 

4 NEW-SEL .TITLE ." Set Page Size" CR CR 
.AX" PG-LN ASet page length in lines" 
.AX" PG-IN BSet page ler^th in inches" 

.AX" PG-WDTH CSet page width in characters" MENU-SELX 

Figure Six 

Sample of Execution Version of Menu Words 




Multiuser/Multitasking 

for 8080. Z80, 808.6 



Industrial 
Strength 

FORTH 



TaskFORTH. 

The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

•ir Unlimited number of tasks 

•^r Multiple thread dictionary, 
superfast compilation 

■i!r Novice Programmer 
Protection PackageiM 

Diagnostic tools, quick and 
simple debugging 

tV Starting FORTH, FCRTH-79. 
FORTH-83 compatible 

ii Screen and serial editor, 
easy program generation 

■ir Hierarchical file system with 
data base management 

* starter package $250. Full package S395. Single 
user and commercial licenses available. 

If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 

Available on 8 inch disk 
under CP/M 2.2 or greater 
also 

various SVa" formats 
and other operating systems 

FULLY WARRANTED, 
DOCUMENTED AND 
SUPPORTED 



DEALER 
INQUIRES 
INVITED 



Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 
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October 23, 1985 — November 3, 1985 

FORML 

Forth Modification Laboratory 
presents 

EuroFORML Conference 

Stettenfels Castle 

Heilbronn, Federal Republic of Germany 
Followed by 

SYSTEMS Trade Fair, Munich 

Computers and Communications 9th International 
Trade Fair and International User's Congress 

and 

Selected sightseeing tours and entertainment in Germany 
International technical conference October 25-27, 1985 Stettenfels Castle 



Software Metrics — Programs and methods to measure program performance, complexity, 
structure, programmer productivity, development methods, models, tools, program verification 
aids, and procedures. Individual participation is encouraged and attendees are requested to submit 
a conference paper. Conference proceedings will be published. 

SYSTEMS TVade Fair October 28 — November 1, 1985 Munich Fair Grounds 

Computers and Communications — This is a major international event covering computers and 
communications. The trade fair is scheduled October 28 through November 1, 1985. 

Guest and Tour Program — A complete program will be available for guests not attending the 
technical conference sessions. Sightseeing escorted tours are planned for the group. 

Reservations, authors instructions, itinerary, special group rate — Write to EuroFORML, Forth 
Interest Group, Post Office Box 8231, San Jose, CA 95155 or telephone the FIG Hotline (408) 
277-0668. East and West Coast departures are planned. Advance reservations are required. 



West Coast Departure 
$1995.00 



East Coast Departure 
$1795.00 



FORTH INTEREST GROUP MAIL ORDER FORM 

P.O. Box 8231 San Jose, CA 95155 (408) 277-0668 



MEMBERSHIP 

IN THE FORTH INTEREST GROUP 



107 - MEMBERSHIP in the FORTH INTEREST GROUP & Volume 7 
of FORTH DIMENSIONS. No sales tax, handling fee or 
discount on membership. See the bacl< page of this order 
form. 

The Forth Interest Group is a worldwide non-profit member-supported 
organization with over 5,000 members and 80 chapters. FIG membership 
includes a subscription to the bi-monthly publication, FORTH Dimensions. 
FIG also offers its members publication discounts, group health and life 
insurance, an on-line data base, a job registry, a large selection of Forth 
literature, and many other services. Cost is $20.00 per year for USA, 
Canada & Mexico; all other countries may select surface ($27.00) or air 
($33.00) delivery. 



The annual membership dues are based on the membership year, which 
runs from May 1 to April 30. 



When you join, you will receive issues that have already been circulated 
for the current volume of Forth Dimensions and subsequent issues will be 
mailed to you as they are published. 



You will also receive a membership card and number which entitles you to 
a 10% discount on publications from FIG. Your member number will be 
required to receive the discount, so l<eep it handy. 



HOW TO USE THIS FORM 

1. Each item you wish to order lists three different Price categories: 

Column 1 - USA, Canada, Mexico 
Column 2 - Foreign Surface Mail 
Column 3 - Foreign Air Mail 

2. Select the item and note your price in the space provided. 

3. After completing your selections enter your order on the fourth page of this form. 

4. Detach the form and return it with your payment to The Forth Interest Group. 



FORTH DIMENSIONS BACK VOLUMES 

The six issues of the volume year (May - April) bound in a single text, 

101 - Volume 1 FORTH Dimensions (1979/80) $15/16/18 

102 - Volume 2 FORTH Dimensions (1980/81) $15/16/18 

103 - Volume 3 FORTH Dimensions (1981/82) $15/16/18 

104 - Volume 4 FORTH Dimensions (1982/83) $15/16/18 

105 - Volume 5 FORTH Dimensions (1983/84) $15/16/18 

106 - Volume 6 FORTH Dimensions (1984/85) $15/16/18 



REFERENCE 

305 - FORTH 83 STANDARD $15/16/18 

The authoritative description of 83-Standard Forth. For 
reference, not instruction. 

300 - FORTH 79 STANDARD $15/16/18 

The authoritative description of 79-Standard Forth. Of 
historical interest. 

316 - BIBLIOGRAPHY OF FORTH REFERENCES 

2nd edition, Sept. 1984 $15/16/18 



An excellent source of references to articles about 
Forth throughout microcomputer literature. Over 1300 
references. 



ASSEMBLY LANGUAGE SOURCE CODE LISTINGS 

Assembly Language Source Listings of fig-Forth for specific CPUs and 
machines with compiler security and variable length names. 



513 - 1802/MARCH 81 $15/16/18 

514- 6502/SEPT80 $15/16/18 

515 - 6800/ MAY 79 $15/16/18 

516 - 6809/ JUNE 80 $15/16/18 

517- 8080/SEPT79 $15/16/18 

518 - 8086/88/MARCH 81 $15/16/18 

519 - 9900/MARCH81 $15/16/18 

520 - ALPHA MICRO/SEPT 80 $15/16/18 

521 - APPLE il/AUG 81 $15/16/18 

522 - ECLIPSE/OCT 82 $15/16/18 

523 - IBM-PC/MARCH 84 $15/16/18 
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524- NOVA/MAY 81 $15/16/18. 

525 - PACE /MAY 79 $15/16/18. 

526- PDP-11 /JAN 80 $15/16/18. 

527 - VAX/ OCT 82 $15/16/18. 

528 - Z80/SEPT 82 $15/16/18. 



BOOKS ABOUT FORTH 

200 - ALL ABOUT FORTH $25/26/35 

Glen B. Haydon 

An annotated glossary for MVP Forth; a 79-Standard 
Forth. 

205 - BEGINNING FORTH $17/18/21 

Paul Chirlian 

Introductory text for 79-Standard. 

215 - COMPLETE FORTH $16/17/20 

Alan Winfield 

A comprehensive introduction including problems with 
answers. (Forth 79) 

220 - FORTH ENCYCLOPEDIA $25/26/35 

Mitch Derick & Linda Baker 

A detailed look at each FIG-Forth instruction. 

225 - FORTH FUNDAMENTALS, V. 1 $16/17/20 

Kevin McCabe 

A textbook approach to 79 Standard Forth. 

230 - FORTH FUNDAMENTALS, V. 2 $13/14/16 

Kevin McCabe 
A glossary. 

233 - FORTH TOOLS $19/21/23 

Gary Feierbach & Paul Thomas 
The standard tools required to create and debug Forth- 
based applications. 

237 - LEARNING FORTH $17/18/21 

Margaret A. Armstrong 

Interactive text, introduction to the basic concepts of 
Forth. Includes section on how to teach children Forth. 

240 - MASTERING FORTH $18/19/22 

Anita Anderson & Martin Tracy (MicroMotion) 
A step-by-step tutorial including each of the commands 
of the Forth-83 International Standard; with utilities, 
extensions and numerous examples. 

245 - STARTING FORTH (soft cover) $20/21/22 

Leo Brodie (FORTH, Inc.) 

A lively and highly readable introduction with 

exercises. 

255 - THINKING FORTH (soft cover) $16/17/20 

260 - THINKING FORTH (hard cover) $23/25/28 

Leo Brodie 

The sequel to "Starting Forth". An intermediate text on 
style and form. 

265 - THREADED INTERPRETIVE LANGUAGES $23/25/28 

R.6. Loeliger 

Step-by-step development of a non-standard Z-80 Forth. 

270 - UNDERSTANDING FORTH $3.50/5/6 

Joseph Reymann 

A brief introduction to Forth and overview of its 
structure. 



FORML CONFERENCE PROCEEDINGS 

FORML PROCEEDINGS - FORML (the Forth Modification Laboratory) is an 
informal forum for sharing and discussing new or unproven proposals 
intended to benefit Forth. Proceedings are a compilation of papers and 
abstracts presented at the annual conference. FORMLispartof the Forth 
Interest Group 

310 - FORML PROCEEDINGS 1980 $25/28/35 



Technical papers on the Forth language and extensions. 

311 - FORML PROCEEDINGS 1981 (2V) $40/43/45 

Nucleus layer, interactive layer, extensible layer, 
metacompilation, system development, file systems, 
other languages, other operating systems, applications 
and abstracts without papers. 

312 - FORML PROCEEDINGS 1982 $25/28/35 



313 



Forth machine topics, implementation topics, vectored 
execution, system development, file systems and 
languages, applications. 

FORML PROCEEDINGS 1983 $25/28/35 

Forth in hardware, Forth implementations, future 
strategy, programming techniques, arithmetic & floating 
point, file systems, coding conventions, functional 
programming, applications. 

314 - FORML PROCEEDINGS 1984 $25/28/35 

Expert systems in Forth, using Forth, philosophy, 
implementing Forth systems, new directions for Forth, 
interfacing Forth to operating systems, Forth systems 
techniques, adding local variables to Forth. 



ROCHESTER PROCEEDINGS 

The Institute for Applied Forth Research, Inc. is a non-profit organization 
which supports and promotes the application of Forth. It sponsors the 
annual Rochester Forth Conference. 

321 - ROCHESTER 1981 (Standards Conference) $25/28/35 

79-Standard, implementing Forth, data structures, 
vocabularies, applications and working group reports. 

322 - ROCHESTER 1982 

(Data bases & Process Control) $25/28/35 

Machine independence, project management, data 
structures, mathematics and working group reports. 

323 - ROCHESTER 1983 (Forth Applications) . $25/28/35 . 



Forth in robotics, graphics, high-speed data acquisition, 
real-time problems, file management, Forth-like 
languages, new techniques for implementing Forth and 
working group reports. 

324 - ROCHESTER 1984 (Forth Applications) . $25/28/35 . 



Forth in image analysis, operating systems. Forth chips, 
functional programming, real-time applications, cross- 
compilation, multi-tasking, new techniques and working 
group reports. 
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THE JOURNAL OF FORTH APPLICATION & RESEARCH 

A refereed technical journal published by the Institute for Applied Forth 
Research, Inc. 

401 - JOURNAL OF FORTH RESEARCH V.1 #1 $15/16/18 

Robotics. 

402 - JOURNAL OF FORTH RESEARCH V.2 #1 $15/16/18 

Data Structures. 

403 - JOURNAL OF FORTH RESEARCH V.2 #1 $15/16/18 

Forth Machines. 

404 - JOURNAL OF FORTH RESEARCH V.2 #2 $15/16/18 

Real-Time Systems. 

405 - JOURNAL OF FORTH RESEARCH V.2 #3 $15/16/18 

Enhancing Forth. 

406 - JOURNAL OF FORTH RESEARCH V.2 #4 $15/16/18 

Extended Addressing. 



REPRINTS 

420 - BYTE REPRINTS $5/6/7 

Eleven Forth articles and letters to the editor that have 
appeared in Byte magazine. 

421 - POPULAR COMPUTING 9/83 $5/6/7 

Special issue on various computer languages, with an 



in-depth article on Forth's history and evolution. 



DR. DOBB'S 

This magazine produces an annual special Forth issue which includes 
source-code listings for various Forth applications. 



422 -DR. DOBB'S 9/82 $5/6/7 

423 - DR. DOBB'S 9/83 $5/6/7 

424 -DR. DOBB'S 9/84 $5/6/7 



HISTORICAL DOCUMENTS 

501 - KITT PEAK PRIMER $25/27/35 



One of the first institutional books on Forth. Of his- 
torical interest. 

502 - FIG-FORTH INSTALLATION MANUAL . . $15/16/18 

Glossary model editor - We recommend you purchase 
this manual when purchasing the source-code listings. 



MISCELLANEOUS 

601 -T-SHIRT SIZE $10/11/12 

(small, medium, large, extra large) 

602 - POSTER (BYTE Cover) $15/16/18 

616 - HANDY REFERENCE CARD FREE 

683 - FORTH-83 HANDY REFERENCE CARD FREE 



SELECTED PUBLICATIONS 

The following publications are recent additions to the Forth Interest 
Group Order Form as selected by the FIG Publications Committee. 

LEARNING FORTH. A Self-Teaching Guide by Margaret A. Armstrong. 
Learning FORTH takes you step-by-step through the various 
stages of programming, using a payroll program as an example. 

In addition to developing a basic working knowledge of the 
language. Learning FORTH leaches good programming style and 
easy debugging techniques. There's also a section on how to 
teach children to use Forth. 

1984 FORML CONFERENCE PROCEEDINGS 

The sixth annual FORML Conference was held November 23-25, 
1984 at the Asilomar Conference Centerin Monterey, California, 
USA. Excellent articles in this volume include two papers on 
Expert Systems which won the acclaim of the participants. Many 
papers contain code you can use immediately, and some are 
philosophical papers which present challenges for the future of 
Forth. 

FORTH-83 REFERENCE CARD 

The Forth-83 Handy Reference Card is now available free of 
charge with any order. If you are not placi ng an order and wish to 
receive a card, please send a self-addressed, stamped envelope 
and we will be happy to send you one. Many thanks to Robert 
Berkey and Dave Kilbridge for compiling, designing and produc- 
ing the card. 



PUBLICATIONS SUBVEY 

If you would like to suggest any other publication for review by 
the FIG Publications committee for inclusion in the Forth Interest 
Group Order Form, please complete the information below and 
return to FIG. 

Title: 

Author: 

Publisher: 

Comments: 



Your comments on any of the publications we currently carry are 
most welcome, please complete information below. 

Title: 

Comments: 
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P.O. BOX 8231 



SAN JOSE, CALIFORNIA 95155 



408/277-0668 
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Company. 
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Country 
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ZIP- 



By. 



OFFICE USE ONLY 

_ Date Type. 
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□ Check enclosed (payable to: FORTH INTEREST GROUP) 

□ VISA □ MASTERCARD 

Card # Expir. Date___ 



Signature. 



SUBTOTAL 



10% MEMBER DISCOUNT 
MEMBER # 



CA. RESIDENTS SALES TAX 



HANDLING FEE 



$2.00 



MEMBERSHIP FEE $20/27/33 
(NEW OR RENEWAL) 
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MAIL ORDERS 

Send to: 

Forth Interest Group 

P.O. Box 8231 

San Jose, CA 95155 



PHaNE ORDERS 

Call 408/277-0668 to place 
credit card orders or for 
customer service. Hours: 
Monday-Friday, 9am-5pm 
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subject to change without notice. Credit 
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on a US Bank. A $10 charge will be 
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POSTAGE & HANDLING 
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SHIPPING TIME 

Books in stock are shipped 
within five days of receipt 
of the order. Please allow 
4-6 weeks for out-of-stock 
books (delivery in most 
cases will be much sooner). 



SALES TAX 

California deliveries 
add 6%, San Francisco 
Bay Area add 7%, 



7/85 



FORTH Dimensions 



24 



Volume VII, No. 2 



Another Subroutine Technique 



Donald Simard 
Severn, Maryland 

David Held's article and subsequent 
letter {Forth Dimensions V/3 and V/5) 
concerning code definitions callable by 
colon and code definitions, provided a 
very useful technique. After 
understanding his ideas, I came up 
with a variation which avoids some of 
the inherent execution-time overhead 
when his method is used from a colon 
definition. 

Using Mr. Held's technique from a 
colon definition required storing the 
address of the subroutine that he want- 
ed to call into the calling routine each 
time that word is executed. This over- 
head can be ehminated. Figure one 
illustrates what a subroutine definition 
will look like after being compiled 
using the defining words presented 
here. 

One can see that the code field points 
to a JSR to the parameter field address. 
The code that is then to be executed 
must be a machine language subroutine 
and must return accordingly. When the 
word is called from a colon definition, 
the inner interpreter will be directed 
through the code field to the JSR PFA. 
When the machine language subrou- 
tine in the parameter field returns a 
JMP then NEXT is executed, which is 
the normal exit for CODE definitions. 
If the subroutine is to be used from a 
code definition, first it is necessary to 
use ' to find the PFA, then JSR to this 
address. 

The execution overhead associated 
with this technique is just an extra JSR 
and RTS from a normal colon defini- 
tion; there is no overhead from code 
definitions. The extra memory requir- 
ed is the four bytes for the JSR and jmp 
in the definition. 



Name 


Link 


Code 


machine 




Field 


Field 


Field 


code 


RTS 



PFA JSR 



NEXT JMP 



Figure One 





: SUB 




[COMPILE] ASSEMBLER 




CREATE SMUDGE 




LATEST PFA CFA 




: END-SUB 




ASSEMBLER 




HERE 0^.'ER ! 




[COMPILE] ASSEMBLER 




2+ JSR, NEXT JMP, 




END -CODE 


EXAMPLE: 






SUB TEST 




4 1 # LDA, 




PRINT JSR, 




RTS , 




END -SUB 


CALLED FROM 


COLON ! 




: PRINT. 1 




TEST 


CALLED FROM 


CODE : 




CODE PRINT . 1 




• TEST JSR. 




t-iEXT jr tp . 




END -CODE 
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Forth National Convention 

September 20 - 21, 1985 

Complete conference program, educational seminars, 
and commercial exhibits. 

Hyatt Rickeys in Palo Alto, California USA 



euroFORML Conference 

October 23, 1985 - November 3, 1985 

International Technical conference at Stettenfels Castle 
SYSTEMS Trade Fair in Munich 
Guest and Tour Program in Germany 

Complete group travel arrangements from USA to Germany 

and return. 



Forth Modification Laboratory 

November 29, 1985 - December 1, 1985 
A technical conference for advanced Forth practitioners. 

Asilomar Conference Center 

Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California USA 



Complete information available from the Forth Interest Group. 



The Mirth Dimension 

PROJECT_DIRECTOR EXPECT UPDATE VERSION , WARNING IF SILENT 

TOGGLE WRITE_CHECK AND EXPECT COLD HANDSHAKE 
ELSE COMPILE AGAIN AND B SILENT : 



FORTH_PROGRAMMER TRAVERSE COLD SILENT OUTER SPACE AND CREATE 

RANDOM DEFINITIONS ; 



FORTH_SOURCE_CODE EMIT RANDOM WORD AND REPLACE ERROR UNTIL 

SPACE = MAX LIMIT OR TIME OVER : 



— Scott Heiner & 
Steve Gledhill 



FORTH Dimensions 



26 



VolumeVII, No. 2 



Hacker's LOCKER 



Cecil McGregor 
Santa Clara, California 

Many times, when debugging Forth 
code, it is convenient to use small 
"throw away" parts that will not be 
used in the later, bug-free version. This 
could include a few lines of output that 
would be handy to keep on the display, 
or portions of a dump to compare with 
something else. It is not always desir- 
able to edit this onto a screen and 
reload from that for changes, nor is it 
always convenient to print it as hard 
copy. These small gems then scroll off 
the top of the screen. Or perhaps you 
are looking at the stack and would like 
to keep it around while you scrounge 
about analyzing a bug. A few lines of 



typing and it, too, goes off the top of 
the screen. 

If you have a terminal that permits 
line lock (such as a TeleVideo 950 and 
many others) you can simulate a win- 
dow that will lock the contents of the 
line until you release it. ScroUing will 
then ignore these locked lines. While 
the appearance is rather odd at first, 
the usefulness is great. 

To implement this, you must look in 
your terminal manual for the codes 
that will lock a line, unlock a line or 
screen, move up and down a line. As 
can be seen in the accompanying code, 
the word LINE-LOCK locks; and the 
word SCR-UNLOCK unlocks the entire 
screen. The constants UP-ARROW and 
DN-ARROW move the cursor up and 



down a line, respectively. Each of these 
is terminal dependent and must be 
tailored to your terminal. 

The word LOCKER gets a keystroke, 
and moves up or down a Hne if the up 
and down arrows are input. UP-ARROW 
and DN-ARROW allow positioning of the 
cursor onto the hne to be locked. Strik- 
ing an "L" will cause the current line 
to be locked; a "U" will unlock the 
entire screen; and any other key will 
exit LOCKER. 

This screen will compile under fig- 
FORTH and Laboratory Microsys- 
tems' 83-Forth, and it should be easily 
transportable to almost any standard 
Forth. If your terminal has line-lock 
capabilities, you will like this utility. 



Screen # 110 









\ LOCKER - lock/unlock lines cm page 




CHM1 1 .:JI.ILS4 


1 


HEX 






■~> 


: LINE-LOCK ( ) ( TV950 cnntrr.! t 


1 o c k 


a line ) 


P. 


IB EMIT 21 EMIT 31 EMIT ; 






4 


: SCR-UNLOCK ( ) ( TV950 control t 


1.1 n 1 OC 


k e n t i r e sere e n > 


5 

6 


IB EMIT 21 EMIT 32 EMIT ; 
OB CONSTANT DP-ARROW 16 CONSTANT DN 


-ARROW 




7 

P. 


: LOCKER ( ) ( selectively lock li 

BEGIN KEY 


n e 5 n 


c r t ) 


'? 


DUP UP- ARROW = IF EMIT 


EL 


SF ( move up ) 


10 


DI.IP DN-ARROW = IF EMIT 


EL 


SE ( move lioion ) 


1 1 


DUP 4C ( L ) = IF DROP LINE-LOCK 


FL 


SF ( lock ) 


12 


DUP 55 ( U ) = IF DROP SCR -UNI OC 


K FL 


Sfl < <=. c r ij ri 1 o r k ) 


13 


DROP QU I T 


( a n V r 


then k e v e x its. ) 


14 


THEN THEN THEN THEN 






ISi 


AOAIN ; DECIMAL 
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Mass Transit Forth 



From June onwards, some bus stops 
in the resort and retirement town of 
Weston-super-Mare, Somerset, U.K., 
will never be at a loss for words. 
Waiting passengers will hear a quiet 
beeping and, if they then press a button 
at the source of the sound, a 
personable female voice will announce 
the time of day, what buses are using 
that stop and when they are due. 

When a bus is running off schedule, 
inductive loop sensors buried in the 
road interrogate circuitry in the bus 
cab to identify it. The microprocessor 
controller in the speech synthesizer 
scans the sensor, detects the oncoming 
bus and a voice will announce 
something like, "The bus now 
approaching is a No. 10." Meanwhile, 
the controller figures out when the next 
one is due. 

London-based Triangle Digital Ser- 
vices Ltd., a one-man outfit set up by 
Peter Rush, developed the prototype 
hardware for the system. Formerly a 
product manager with General Instru- 
ment Microelectronics Ltd., Rush set 
up shop to provide a systems service to 
potential users of voice systems. 

He has developed a custom speech 
chip using a digital logic array. This is 
mounted on a self-contained Eurocard- 
sized board. To go with it, there is a 
Forth-language microcomputer board. 
Rush says he chose Forth because its 
high-level-language capability speeds 
development work. 

Using the speech-synthesizer board 
and the microcomputer board (which 
serves as its own development system), 
Rush can quickly meet a customer's 
requirements, even tailoring the voice 
to the applications. For Britain's 
National Physical Laboratory, for 
example, Triangle has developed a 
handheld keypad with sixteen-digit 
alphanumeric display. It is used to 
check readings as they are entered into 
the laboratory computer. With the 
synthesizer speaking in a brisk manner 
with truncated enunciation, it can keep 



up with the user as he keys in a long 
numeric string. 

The terminal can be used both for 
entering data and instructions and for 
receiving prompts from the laboratory 
computer. For example, it could give 
the operator a cue about what reading 
to make next or indicate that a reading 
is out of range. The terminal 
communicates with the laboratory 
computer systems through an 
RS-232-C interface at 9,600 bits per 
second or through an IEEE-488 port. 

Triangle has now acquired rights to 
the terminal from NPL and is also 
negotiating with the Department of 
Transport for the rights to the passeng- 
er advisory service, which clearly has 
potential applications in road, rail and 
airplane terminals, just for starters. 

For those companies with sufficient 
expertise to assemble their own sys- 
tems. Triangle also sells its various 
board products directly. One is a 
speech-synthesizer board that can be 
operated directly from relay contacts, 
asynchronous links over twisted pairs 
or parallel binary-coded decimal 
inputs. 



Forth Talk 

Triangle has also developed a Forth 
development board based on a Hitachi 
6303 — a complementary-MOS variant 
of a Motorola part — and running 
Triangle's own Forth system. The 
board is a useful tool for real-time 
applications, since multi-tasking 
programs can be written in a high-level 
language. 

Moreover, users can extend the 
language as they go along, building 
their own expertise into their systems. 
Rush has used this feature to develop 
progressively more sophisticated 
speech-control algorithms. The result 
has been speech with very acceptable 
quality. 



The Department of Transport system 
shows off the microcomputer's multi- 
tasking capability. First, it keeps a 
calendar that tracks the minute, hour, 
day and month. It responds to changes 
in summer and winter schedules and 
switches to the appropriate timetable. 

Second, it scans the inductive loop 
sensors and decodes the detected sig- 
nal. Next, it controls the speech- 
synthesizer chip's vocabulary and 
adjusts the volume to compensate for 
ambient noise levels. "The lady shouts 
when a lorry goes by," says Rush. 
There is also a switched-capacitor-filter 
board with a twelve-decibel-per-octave 
cut-off. 

— Kevin Smith 



Reprinted from Electronics, May 31, 
1984. Copyright © 1985, McGraw- 
Hill, Inc. All rights reserved. 
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Now You Can Add 



ARTIFICIAL 
INTELLIGENCE 

To Your Programs Using a Powerful Combination 



mm 




By Elliot Schneider & Jack Park 



Hcrcs Your Chance to Profit by being on 
the Forefront, Write 5th Generation Software 



Learn How To: 

• Create Intelligent • 

Programs 

• Build Expert Systems • 

• Write Stand Alone License 

Free Programs • 



Easy Graphics & Sound Words 



Construct 
Rule Bases 
Do Knowledge 
Engineering 
Use Inference Engines 



Write Intelligent Programs For: 

• Data Analysis 

• Business 

• Real Time 
Process Control 

• Fast Games 

• Graphics 

• Financial Decisions 



Home Use 
Robotics 

Medical Diagnosis 
Education 
Intelligent CAI 
Scientific Analysis 
Data Acquisition 



Extended Math Functions 

• Fast ML Floating Point & Integer Math 

• Double Precision 2E+38 with Auto. Sci Not. 

• n^e*' Logx Loge Sin Cos Tan SQR 1/X... 

• Matrix and Multidimensional Lattice Math 

• Algebraic Expression Evaluator 



SUPERFORTH 64+AI 



LISP 



LOGO 



PASCAL 
BASIC 
FORTRAN 



ASSEMBLER 



Other 



6x 



SF64 1x 



Power of Languages Constructs 
SuperPorth 64 is more 
powerful than most other 
computer languages 



Programming Time 
SuperPorth 64 Saves You 
Time and Money 



• Hires Plotting 

• Windows 

• Split Screen 

• Printer/Plotter Ctrl 

• Sprite & Animation 
Editor 

Easy Control of all I/O... 

• RS232 Functions 

• Access all C-64 Peripherals 

Utilities 

• Interactive Interpreter 

• Forth Virtual Memory 

• Full Cursor Screen Editor 

• Full String Handling 

• Trace & Decompiler 

• Conditional Macro 
Assembler 



Great Documentation 

• Easy to Read 350 pg. 
Manual with Tutorials 

• Source Screen Provided 

• Meets all MVP Forth-79 
Industrial Standards 

• Personal User Support 

A Total 
Integrated Package 
for the Commodore 64 



• Turtle Graphics 

• Koala Pad Graphics 
Integrator 

• Hires Circle, Line, Arc 

• Music Editor 

• Sound Control 

• Interrupt Routines 



Interactive Compiler 
Romable Code Generator 
40K User Memory 
All Commodore File Types 
Conversational User 
Defined Commands 




Ordering Information: Check, Money 
Order (payable to MOUNTAIN VIEW 
PRESS, INC.), VISA, MasterCard, 
American Express. COD's $5,00 extra. 
No billing or unpaid PO's. California 
residents add sales tax. Shipping costs 
in US included in price. Foreign orders, 
pay in US funds on US bank, include 
for handling and shipping $10, 
'Parsec Research 

Commodore 64 TM of Commodore 



SPECIAL 
INTRODUCTORY OFFER 



^99 



00 



only 

203='° Value 
Limited Time Offer 



Call: 
(415) 961-4103 

MOUNTAIN VIEW PRESS INC 

P.O. Box 4656 
Mt. View, OA 94040 

Dealer for 
PARSEC RESEARCH 

Drawer 1776, Fremont, CA 94538 



Part Two 

Forth Spreadsheet 




Craig A. Lindley 
Manitou Springs, Colorado 



\ spreadsheet - loader block 
1 

2 dark .( Spreadsheet Eoepilinq) 
3 

4 ! 45 +thru 



4 

d 09/2I/34 \ spreadsheet - constant i variable declarations d 07/04/84 



warning off 



load the spreadsheet into the forth dictionary 

if you wish to save the spreadsheet, do so as fellows; 

' spreadsheet is boot <cr> 
save-systen f ilenaee.coii <cr> 

this will save the entire forth systei along with the spread- 
sheet as an executable file nased filenane. When the file 
is executed, your spreadsheet will execute autosatically. 



variable iode_flag 
variable order_flag 
variable for»at_f!ag 
variable cur_col 
variable cur_row 
variable col_disp 

variable row_di5p 

variable dict_«ark 
variable op_stack 44 allot 



\ auto calculate flag 
\ calculation order flag 
•. nuiber output format flag 
\ top left display coluim I 
\ top left display row # 
\ coiuan displacsient froc 
\ cur_col on display 
\ row displaceient froa 
\ cur_row on display 
\ beginning of for»ula area 
\ operator stack for algebraic 
\ equation coipilation 



2 

\ spreadsheet - case stateient d 06/28/84 

1 

2 : ?coip state i not abort" Coipilation only" ; 

3 : ?pair5 <> abort" Bad CASE statejent" 
4 

5 : case 7co«p csp 8 !csp 4 ; iitediate 

6 ; of 4 ?pair5 

7 coapile over coipile = coipile ?branch 
B here , coipile drop 5 ; iiiediate 
9 : endof 5 ?pairs coipile branch here , 

swap >resolve 4 ; iiiediate 

1 : endcase 4 ?pairs coipile drop 

2 begin spi csp S <) 

3 while >resolve repeat 

4 csp ! ; iiiediate 



5 

\ spreadsheet - high level array definitions c! 06/31/84 

\ create 2D array depth bytes deep 

; array \ ( trows Icols depth ~ ) coipile tiie 
\ ( rowl col* — elesent addr ) run time 
create 2dup swap c, c, ♦ ♦ dup here 
swap erase allot 

does) dup c8 3 roll » 2 roll + over 
1+ c8 » + 2+ i 

\ create ID string array depth characters deep 
: $array \ ( Irows depth -- ) coipile tiie 

\ ( rowl — string addr ) run tiie 

create dup c, « dup here swap blank allot 

does) dup c8 rot ♦ + 1+ ! 



\ spreadsheet - constant i variable declarations d 06/24/84 \ spreadsheet - array definitions 



d 06/28/84 



26 constant row.iax 
26 constant col_iax 
12 constant CDl_naie_len 
17 constant row_naie_len 
21 constant col_org 
3 constant row_org 
6 constant bytes/cell 



\ I of spreadsheet rows 

\ i of spreadsheet coluins 

\ lax length of coluin naie 

\ lax length of row naie 

\ coluin origin of data on display 

\ row origin of data on display 

\ t of bytes per cell 



\ define a 2D array for spreadsheet data structure 

\ each cell contains 6 bytes 

\ 2 for foriula execution address (if any) 

\ 4 for double nuiber value storage 

row_iax cal_iax bytes/cell array cells 

\ define a string array for holding the row naies 
row_iax row_naie_len tarray row_naie5 

\ define a string array for holding the coluin naies 
co!_«ax col.naie_len $array col_na«es 
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\ spreadsheet - lisc Mord definitions 

1 : IBM.key 

2 key ?dup 0= 

3 if key !28 + then ; 



10 

d 07/04/84 \ spreadsheet - lisc ttord definitions 



\ input special IM keys 
\ ( -- c ) 



5 : dtin \ input double t froi keyboard 

6 pad 1+ 20 2dup blank expect \ ( - d) 

7 span § pad c! pad nunber ; 



9 : tin d#in drop ; 


1, 

n 
i. 

3 
4 



\ input single nuiber 

\ ( -- n) 



(fd.) tuck dabs 
<# t t ascii . hold fs rot 
sign ascii $ hold l> ; 

fd.r >r (fd.) r> 
over - spaces type J 

foriatt 
foriat_flaq i 

if 10 fd.r 
else 10 d.r 
then i 



d 07/04/84 
\ dollar/cents fortating word 
\ foriats double t on TOS 
\ prints leading t 

\ foriat dt in dollars/cents in 
\ right justified field width w 
\ (d w -- ) 

\ foriat double nusber in one of 

\ two foriats 

\ as dollars/cents 

\ .norial nuiber 



\ spreadsheet - eisc word definitions d 07/02/84 \ 

; posl 21 2dup at blot at I \ position cursor on cud line 
; pos2 22 2dup at blot at j \ position cursor on cid line 



4 : y/n 

5 posl ." fire You Sure ?; " 
h key upc ascii Y = ; 

I 

8 : nark.cell 

? 2dup at ascii < esit swap 11 

+ swap at ascii > eait I 
1 

2 : un»ark_CBli 

3 2dup at space swap 11 + swap 

4 at space ; 



V ( — T if yes F if no ) 
\ display iiisg 
\ return flag 

\ nark cell on display 

\ (rowl col* — ) 

\ mark cell like "( >" 

\ uniark cell of display 

\ (row* col* -- ) 

\ reiove < > sarks froi display 



1! 

spreadsheet 
di5_data 

cur^col § dup 4 + swap 
do i col_iiiax = Tleave 
cur_row 8 dup 15 + swap 
do i rQW_i«a); = "leave 
j cur_col 8 - 13 • 22 + 
i cur_row 8 - 3 + 
i j cells 2+ 28 format* 
loop 
loop ; 



display word definitions 



cl 07/04/84 



at 



\ display all cell data 

\ for 4 screen coluins 

\ if past last possible coluin 

\ for 15 screen rows 

\ if past last passible row 

\ calculate display col position 

\ calculate display row position 

\ get data and display it 

\ loop for all data displayed 



\ spreadsheet - iiisc word definitions 



12 

cl 07/03/84 \ spreadsheet - display word definitions 



cl 07/02/84 



celljtr 

cur_row 8 row^disp 8 + 
cur_CDl 9 co! Jisp 8 + 
cells I 

cal_cell_di5p_loc 
coi_disp 8 13 ♦ coi_Drg + 
row_di5p 8 row_Drg + 

placB_cell_«arker 
cal_cell_disp_l!!C «iark_cell ; 



\ return address of cell pointed 
\ at by < > display larker 
\ ( -- cell addr ) 



\ calculate location on display 
\ of cell display sarkers 
\ ( -- col row > 

place cell aarker around cell 



: erase_cell_sarker \ erase cell Barker around cell 

cal_cell_disp_loc uniiiark_cell ; 



\ display spreadsheet boarders on the screen 

\ display spreadsheet boarders 



: dis_boarder 
18 3 

do 20 i at 4 

do ascii ! eiit 12 spaces 

loop ascii I emit 
loop 
80 

do i 2 at ascii - esst loop 
80 

do i IS at ascii - esiit loop 



\ 
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2 \ 
3 

4 : 

5 

6 

7 

S 

9 



1 

2 

3 

4 

5 



13 

spreadsheet - display word definitions cl 07/04/84 

display spreadsheet lenu of options on right side of display 



16 

spreadsheet 



display word defintions 



cl Oi/31/84 



dis.ienu 










74 'z at 


" flenu;' 








74 4 at 


." Oor 


74 5 


at 


.' A)gain' 


74 6 at 


■ Dlata" 


74 7 


at 


E)qu." 


74 8 at 


" F)ori." 


74 9 


at 


." Sloto" 


74 10 at 


" H)ode" 


74 11 


at 


.' Nlew' 


74 12 at 


" Order" 


74 13 


at 


." P)ref" 


74 14 at 


■ 8)uit" 


74 IS 


at 





dis_status 
48 19 at ." Rok: " 
cur_roH § roti^disp 8 + . 
iO I9 at ." Coluin: " 
cur_CDl 8 col_diEp 9 + ascii A + emit 



display spread sheet status 
display current row/col 



47 20 at .■ Node; 
if ." Auto ' else 
il 20 at ." Order: 
if .« C/R" else ." 
pos2 

posl .' Cotiand: " 
p!ace_cell_iarker 



' Bodejlag i 
.' Noriar then 
" order_flag * 
R/C" then 



\ display calc, lode 
\ display calc. order 



\ output coiiand protpt 

\ place cell sarker on display 



14 

\ spreadsheet 
1 

2 : dis.rott^labels 

3 cur.roH i dup IS * sttap 

4 do i roM.iax - ?leave 

5 18 i cur.ron § - 3 + 

1 i 2 .r " 
7 loop 



display Mord definitions 



17 

cl 07/04/84 \ spreadsheet - display nord definitions 



cl Oi/31/84 



at 



label the rows on display 
label froi cur_rott 
for IS lines or until row_«ax 
fonat in deciial Is 



9 ; di5_rot(_naie5 

cur.ro* 8 dup 15 swap 

1 do i roN.tax = ?leave 

2 i cur_ro»t 8 - 3 + at 

3 i roH.nues roN.naie. 

4 type 

5 loop ; 

15 

\ spreadsheet - display word definitions 



\ display roM naies fro* array 
\ only shoK nates that fit on 
\ display 

\ place cursor at location 
len \ type required chars 



dis. 


row_change 


\ display info that changes with 


dis" 


.roK.nates 


\ a row change 


dis. 


roH_labels 


\ row naies, labels and data 


dis 


.data ; 




dis. 


col_change 


\ display info that changes with 


dis 


.col_nates 


\ a col change 


dis. 


col. labels 


\ col naies, labels and data 


dis 


data i 





cl 07/03/84 



dis.col.labels 
cur.col 8 dup 4 + swap 
do i col.fiax = ?leave 

1 cur.col 8 - 13 » 27 

2 at i ascii A * eiit 
loop ; 



\ label the coluins on display 
\ label froi curcol 
\ for 4 cols, or until col.iaK 
\ fonat in alphabetic chars 
\ A thru Z 



dis.col. naies 
7 fat Title" 
cur.col 8 dup 4 + sNap 
do i col.iax = Tleave 

i cur.col 8 - 13 ♦ 21 + \ place cursor at location 



\ display coluin naies 
\ only show naies that fit on 
\ display 



IB 

\ spreadsheet - display word 
: dis.screen 

dark 31 at 

." Forth Spreadsheet" 

dis.boarder 

dis.ienu 

dis.col.labels 

dis.col.naies 

disrowlabels 

dis.row.naies 

dis data 



1 at i col. 
type 
loop ) 



naies col naie len 



\ type required t of chars 



row.disp 
dis status 



col.disp 



definitions cl 07/04/84 

\ display spreadsheet screen 

\ display title 
\ dran boarders 
\ display operation lenu 
\ label coluins (A-Zl 
\ display coluin naies 
\ label rows (0-25) 
\ display row naies 
\ display appropriate data 
\ for data window being 
\ displayed 
\ set lark at origin 
\ display status 
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19 


22 




\ 
1 


spreadsheet - cell calculation words d 0&/31/B4 \ spreadsheet - cell iarker positioning Mords d 07/02/84 


2 : 


calculate \ calc foriula of cell if it has 


• 

\ right.arroi 


\ love cell iarker right 1 cell 


7 


8 ?dup if execute then i \ one ( cell addr ~ 1 


col.disp 8 3 = 


\ iarker in right lost cell ? 


4 




if cur.col 8 4 + col.iax 


<> \ if so is it the last cell tZ) 


5 : 


calc_c/r \ calc colutns then roMs 


if 1 cur.col +! 


\ love display coluin right one 


& 


roN.iax 


dis.col.change 


\ scroll right 


7 


do CDl.iax 


then 


\ if lark at coluin Z ignor 


8 


00 J 2 ceiis csicuidiB loop \ yei tonuxd ano execuiB \z 


else 


\ if lark not at right lost 


9 


1 nnn ! 


erase.cell.iarker 


\ coluin of display love it 







1 col.disp +! 


\ right one cell without 


1 : 


rair tIt \ f* 3 1 iPAMC han ml nane 

Lait_r/U \ Ldi rQNB tneR tuiUllls 


then 


\ scroll 


2 




place.cell .iarker i 


\ drM new cell iarker 


3 








4 


UU 1 J Leila taiLUidLtf i Uup \ (jcL TUi ■ui d dliu tfXcLULe 1 L 






5 


loop ) 










23 




\ 
1 


SprcaUanccL wci i LalLUiaviun MOrOa CI v//U^/0^ 


\ spreadsheet - cell iarker positioning Mords d 07/02/84 


2 : 


calc_cEll5 \ deteriine which to calc first 


: up.arroM 


\ love cell iarker up 1 cell 


3 


oroEr_Tiag c \ oy state ot oruer^tiag 


roti.disp 8 0= 


\ is cell at top display pos. ? 


4 


if calc_c/r \ if 1 calc cols then rows 


if cur.roN 8 <> 


\ if so are we at the top of 


5 


eise caic_r/c \ it u caic rows men cois 


if -1 cur.roN +! 


\ the spreadsheet ? 


b 


then ; 




\ if not love up a 


7 




dis.rotf .change 


\ cell and scroll upward 


B : 


order \ pra«pt user for calc order 


then 


\ if already at top ignor 


9 


posl ." Specify calculation order' 


else 


\ if lark not at top of display 





pos2 .■ Roti/CoKO) or Col/Rowd): " 


erase.cell.iarker 


\ erase lark 


1 


key ascii 1 = \ get response and set flag 


-1 row.disp +! 


\ love up one cell 




if true \ accordingly 


then 




J 


else false 


place.cell. iarker ; 


\ draw new cell iarker 


4 

e 

J 


then order_flag ! ; 








21 


24 




\ spreadsheet - cell iarker positioning Nords d 07/02/84 \ spreadsheet - cell darker 

t 


positioning words d 07/02/84 


2 : 


left_arrDt( \ •ove cell iarker left 1 cell 


; down.arroN 


\ iDve cell iarker down 1 cell 


3 


col.disp 8 0= \ cell tark at left of display ? 


rott.disp 8 14 = 


\ are we at bottoi of display ? 


4 


if cur .col 8 <> \ if so is at at first coluin ? 


if cur.ron 8 15 + row.iax 


<> \ if £0 are we on last row ? 


5 


if -1 cur_coi +! \ Bove display coluiin left once 


if 1 cur.row +! 


\ if not love down one cell 


i 


dis.col.change \ scroll display left 


dis.ron.change 


\ scroll downward 


7 


then \ if at first colu«n ignor 


then 


\ if at last row ignor 


S 


else \ cell lark not at left coluin 


else 


\ if not at bottoi of display 


9 


erase_cell_«arker \ erase current lark 


erase.cell.iarker 


\ erase cell lark 





-1 col.disp +' \ love left without scroll 


1 roN.disp +! 


\ love down one cell 


1 


then \ of display 


then 




7 

4 

5 


place.cell.iarker i \ draw net* cell iarker 


place.cell. iarker i 


\ draw new cell iarker 
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\ spreadsheet - cell Barker positioning words cl 07/04/' 

1 

2 : first_col ciir_col ! \ go to colusn A i mined lately 

3 di5_co!_change ; \ cur_coI to and scroll 

4 ' ' 

5 : U5t_col \ go to column W iiosediately 

6 col_i\ax 4 - cur_col ! \ cur_coI to W and scroll 

7 di5_col_change ; 
3 

9 : tQp_ro*t \ go to row iimediately 

cur^row ! \ cur_row to and scroll 

1 dis_rot(_change i 
2 

3 : bottai_roN \ go to coluftn 11 ianediately 

4 roi«_iaK 15 - curjoti ! \ cur_roti to 11 and scroll 

5 dis_roN_change ; 



28 

14 \ spreadsheet - algebraic functions cl 07/04/84 

: as5ign_id col_iiia); \ loop used to assign values to 

do i col_id loop ; '•, the alphabetic coluiins 

assign.id A B C D E F S H 1 J K L N N D P 
Q R S T U V M X Y Z 

\s 

for exaiple: 1 A returns the double int value of cell 1 A 
Colusn ids A-Z return values of 0-25 respectively 



26 

\ spreadsheet - cell tarker positioning words 



cl 07/04/84 \ 



left.4.col5 

4 do left arrow 



loop 



right_4_col5 

4 do right_arrow loop 



move Darker 
at a tiie 

iove Barker 
at a tite 



left 4 coluuns 



right 4 coluins 



29 

spreadsheet - 
oppS 

op_stack dup 



>op 4 op_stack +! opp8 



algebraic functions cl 06/31/84 

\ return oprand stack position 
8+1 \ Ist location is stack ptr 

\ { - addr i 

\ store cfa and precedence 
\ top of oprand stack 
\ (cfa prec ~ ) 
op> opp8 28 -4 op_stack *\ \ pop cfa and prec off oprand 
drop , ; \ stack and coipile into diet, 

prec? opp8 8 ; \ return precedence frot top 

\ top of oprand stack 
\ { — prec) 

la begin prec? \ end algebraic coipilation 

while op> repeat \ pop reniaining oprands off stk 

forth ; imediate \ and conpile then select forth 

\ vocabulary again 



27 

\ spreadsheet - algebraic functions cl 07/04/84 

vocabulary algebra algebra also definitions 

\ col_id function assigns n to id at conpile tise (n ) 
\ expects row t on TDS at run tiie 

\ subsequent usage of id fetches double value of cell tc stack 



col_id 
create , 

does) 8 cells 2+ 
28 I 



\ colu«n_id high level defining 
\ word. Creates col ids A-Z 
\ expect a t on the TQS and 
\ pushes the cell value onto 
\ the parameter stack 



30 

\ spreadsheet 



algebraic functions 



cl 07/04/84 



\ create high level definition that perforns algebraic 
\ conpilation. See text for details of operation 



infix ' 

create swap , , iflnediate 
does> 28 

begin dup prec? > not 
while >r >r op) r) r) 
repeat )op ; 



d* dup rot ♦ rot rot un* rot 
d/ swap over /sod )r swap 
uii/iod swap drop r) ; 
d«od d/ drop ; 



\ create new algebraic operator 
\ coiipile cfa of forth operator 
\ and assigned precedence 
\ at coipile ti«e execute if 
\ prec is lower then oprand on 
\ top of oprand stack 



\ double ffiultiplication 
\ double division 



\ double sodulus 
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34 




\ 


spreadsheet - algebraic functions d 07/04/84 \ spreadsheet - input words 


d 07/03/84 


1 






input.col_naies 


\ input coluin naies 


2 7 


infix d* ♦ 7 infiji d/ / 


\ create new algebraic operators 


posl .' Input Col Nates' 


\ display coiiand proipt 


3 i 


infix d+ + b infix d- - 


\ Mith assigned precedence 


po52 Starting with Col: " 




4 5 


infix dtod sod 




key upc ascii fl - cur_col ! 


\ get starting col 1 store 


5 






col_Hx cur_col 8 


\ in cur_CDl. Froi there till 


b : 


)ilssing 


\ Hissing ) lessage 


do po52 


\ last col input naies 


1 

1 


1 abort" Missing !" i 


\ if iissing then abort 


.' Col " i ascii ft ♦ etit ." 


: ' \ display col t 


8 






i col_na»es col_na«e_len 


\ get address in col.nate array 


9 : 


( 


\ left paren 


2dup blank expect 


\ clear it and then input 





['] )sis5ing 1 >Dp ; 


\ prec=l cfa=)aissing lessage 


span i 0= ?Ieave 


\ if just <CR> then exit loop 


1 


iMediate 


\ push on oprand stack 


i 4 lod 0= 


\ every 4 nates scroll display 


2 






if i cur_col 1 


\ nett cur_col change display 


T 

J 






dis_col_change 


\ else only change the 


4 






else dis.col.naiies then 


\ display col naies 


5 






loop ; 
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\ 
1 


spreadsheet - algebraic functions d Ofc/31/84 


\ spreadsheet - input words 


d 07/04/84 


n ( 
i. . 


) I forth ] 


\ right paren 


: getl 


V get double 1 scale if needed 


J 


begin 1 prec? < 


\ causes all itets on oprand 


dtin 


\ get double int froi operator 


4 


while op> repeat 


\ stack to be cotpiled until 


foriat_flag 8 


\ dollars/cents foriat ? 


C 

J 


1 prec? = 


\ left paren found 


if dpi 8 3 lin 


\ if so scale accordingly 


6 


if -4 op_5tack +! 


\ left paren should have prec. 


case 




7 


else 1 abort" Hissing !" 


\ of 1 else error jsg output 


-1 of 100 d» endof 


\ no DP value » 100 


S 


then ; ifltediate 




of too d« endof 


\ DP value « 100 


9 






1 of 10 d* endof 


\ 1 DP value ♦ 10 


forth definitions 




2 of noop endof 


\ 2 DFs no scaling 


1 






3 of 10 d/ endof 


\ 3 DPS value / 10 


^ . 


aC op_stack ! algebra ; 


\ start algebraic coipilation 


endcase 




T 


iiaediate 


\ reset oprand stack and 


then ; 


\ if norial foriiat 


4 




\ select algebra vocabulary 




\ no scaling perforied 



\ spreadsheet - input words 

1 ; input_raw_naiDes 

2 posl Input fiow Mates" 

3 posi ." Starting with Row; ' 

4 tin cur_roi« ' 

5 row_Bax cur_rQw 8 

6 do pOE2 

7 .' Row " i 2 .r ." : " 

3 i row_nai!ies row_naiiie_len 
9 2dup blank expect 

span a 0= ?ieave 

1 i 5 Md 0= 

2 if i Lur_row ! 

3 dis_roH_change 

4 else dis_row_naiiieE then 

5 loop ; 



d 07/03/84 

\ input row nates 

\ display cDitand prompt 

\ get starting row » store 
\ in cur_row. Froii there till 
\ last row input naaes 
', display row t 

\ get address in ro»_nai»e array 
\ clear it and then input 
\ if just <CR> then esiit loop 
\ every 5 nases scroll display 
\ new cur_rDw change display 
'. else only change the 
\ display row nates 
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spreadsheet 



input words 



cl 07/04/a 



input_cell_data 
posS ." Input Ceil Data' 
p(js2 ." Data: " get* 
cell_ptr 2+ 2: 
»Dde_flag 8 

if pos2 ," CakuUting' 

caic_cellE 
then 

dis data ; 



input data to call 
\ proript for data entry 
\ get data 
\ and store it 
\ get aiDde flag 
\ if auto calculate sjde 
\ selected Iher; calculate 
\ al! cell data 

show the new data 
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\ spreadsheet - input Mords 
input. equ 

posl .' Input Cell Equation' 
pD52 >" Equation; ° 
tib 127 blank 
' : Zonula il ' 
tib SNap CDOve 

7 tib 13 ♦ dup 127 expect 

8 span i « 

9 " 3a [ cell_ptr 2+ ] literal 

-rot snap rat cuove 

1 span 8 70 + Itib ! 

2 bik Df{ >in oH 

3 algebra 

4 interpret 

5 ^orth ; 



cl 09/21/84 
\ input equation into diet 
\ proitpt for equation 

\ clear tib 

\ preaible to «oye to tib 

\ •ove it to tib 

\ get equation to tib 

\ pt at end of input 

) last 8 naiie> cell_ptr '" 

\ love to tib also 

\ iake forth think it all 

\ cane froc the keys 

\ select algebra vocabulary 

\ compile equation into diet 

\ back to forth vocabulary 



\ spreadsheet - high level coiftands 

; fomat \ select t foraat 

posl .' Select input nuiber fomat' 
pos2 .' Nor«al=0 or Dollar5/Cents=l: " 



cl 07/04/84 



key ascii 1 
if true 
else false 
then 

foriiat_f lag 
dis data ; 



\ get operator response 

\ if $ then true to for»at_flag 

\ Dthemise false to fori»at_flag 



\ shoM data in new fomat 
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\ spreadsheet - high level cociands 

1 : quit_calc 

2 y/n abort' BYE" 
3 

4 ; nen y/n \ 

5 if cells \ 
b 
7 
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cl 07/04/84 \ spreadsheet - high level coneands 



cl 07/04/84 



nen y/n 
if cells 

roi»_iax col.HX bytes/cell 
♦ » erase 

8 roH.naies 

9 rot(_«ax ro«_naie_len ♦ erase 

col. nates 

1 col.iia); cal_na«_len ♦ erase 

2 dict.tark perfort 

3 roK.disp I col.disp '. 

4 dis.screen 

5 then ; 



\ exit spread sheet 
\ ask again if YES then quit 

clear existing spreadsheet 
ask again if yes dear it 



\ erase cells array 

\ erase row.naae array 

\ erase col.nane array 
\ erase all f omul as 
\ set larker to origin 
\ display cleared screen 



again.repl 
cell.ptr 2+ 2« 
posl ." Coluin replicate cell data' 
pas2 .' Nuiber of coluins: ' 
#in ?dup 
if 

do right.arroti 

2dup cell_ptr 2+ 2! 
loop 
2drop 
disdata 
then i 



\ replicate coluin data 
\ bring cell data to TOS 



\ get t of coluins 
\ if answer <> 
\ lOve right 
\ and store data 



\ dean up the stack 
\ and display the new data 
\ else Ignor if col=0 





1 : 
2 

3 
4 

5 
& 
7 
B 
9 

1 

i 

3 
4 

5 
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\ spreadsheet - high level coiiands 



cl 07/03/84 \ 



42 

spreadsheet 



high level coiiands 



cl 07/04/84 



■ode 

posl 

.' Set auto calculation lode' 
pos2 

." Narial=0 or Auto=l; ■ 

key ascii 1 = 

if true 

else false 

then 

lode.flag ! ; 

perfom.calc 
calc.cells 
dis data ; 



\ set auto calculation lode 



\ proipt operator 
\ get response 
\ set lode.flag 
\ accordingly 



\ force calculations 
\ execute foriulas 
\ shoN result 



go_to 

posl ." Ron (0-25): " 
iin dup roti.iax within 
if cur_ro« ! 
pos2 Coluin (fl-W): " 
key upc ascii A - dup 
col_ia)( J - within 
if cur_coI ! 
col_disp ! row.disp 
dis.screen 
else drop 
then 

else drop 
then ; 



\ goto specified row/col 

\ proupt for row I 

\ check for proper range 

\ if ok store it 

\ proipt for col letter A-W 

\ get it and check its range 

\ if ok goto data window 

\ store col i 

\ place cell larker at origin 

\ show new screen 

\ drop Is if out of range 
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\ spread sheet - operator input processing cl 07/04/S4 




coimand^in case 




1 


ascii A of again_rBpI 


endof \ replicate cell data 


r 

•i 


ascii C of inpijt_col_naBe5 


endof \ input coluin nanes 


4 


ascii D of input_cell_data 


endof \ input cell data 




ascii E of input_Bqu 


endof \ input cell equation 


6 


iscii F of forjat 


BnuuT \ input t uispiay "uiBdi 


T 

/ 


asci I 13 ct go.to 


rnUUT \ yuLU Lri t 


3 


ascii n of lode 


endof \ set ale sode 



7 


ascii N of new 


enuot \ Cl cir spreausnecL 





ascii of order 


endof \ set calc order 


1 


ascii P of perfDri_calc 


endot \ force csicuidiions 


2 


ascii S of quit.calc 


endof \ quit spreadsheet 


3 


ascii R of input_rott_na(ies 


endpf \ input row naies 


4 


beep 


\ if none of the above 




endcase i 
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u 


' 


spread sheet 


Ci u//vi/dn 


1 ', 


CDntrol_in 




2 


case 






199 of top_roH endof 


\ Qoto top row of sheet 


4 


200 of up_arroi* endof 


\ up one cell 


5 


iU! ot leTt_4_cDl5 endoi 


\ go left 4 colusns 




203 of left.arrow endof 


\ left one cell 


7 


205 of right_arrow endof 


\ right one cell 




a 




S yOtu DOttufl rOw uT bncci. 


9 


208 of down^srrow endof 


\ down one cell 




iXn ot rignt_^_coi5 enaot 


\ yu riyriL *t coiUGns 


1 


ot +ir5t_coi enoot- 


\ Qoto first column of sheet 


2 


244 of Iast_col enoDt 


\ goto last coliicn of sheet 


i 


Deep 


\ if none of above 


4 
- 


endcase ; 
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u 



1 


\ spreadsheet - «ain pragras 


cl 09/2 1 /S4 


n 


; spreadsheet 


\ iiiain prografi word 


T 

J 


dis_5creen 


\ shot* screen 


4 


begin 




c 

J 


IBM_key upc 


\ get key convert to UC 


C 


dup 198 > 


\ coritrcl or coamand key ^ 


-r 

/ 


if control _in 


\ control key input 


8 


else coi»iiand_iri 


\ coiaand key input 


9 


then 







dis_statu5 


\ shott new status 


1 


again 1 


\ da forever 


3 lark nD_fDrsijlas 


\ dict_sark has cfa of 


4 


' nD_foriJula5 dict_«ark ' 


\ Kord to delete formulas 


5 


warning on 


\ warning atsgs tack on 



Availability of Spreadsheet Source 
Code and F83 

To save some rather tough typing, 
the source code for this program is 
available postage paid from the author 
for $25 (6 Sutherland Place, Manitou 
Springs, Colorado 80829). It is, 
however, only available on 5.25" disk 
format for MS-DOS or PC-DOS. The 
public-domain F83 program should be 
available from No Visible Support 
Software, Mike Perry, 1125 Bancroft 
Way, Berkeley, California 94702. 

This is an incredible implementation 
of Forth-83. Everyone even remotely 
interested in Forth should buy a copy 
of it. The entire Forth community 
should give thanks to Laxen and Perry 
for donating such an excellent piece of 
software to the public domain. 



The Mirth Dimension 

2SWAP DROPY 

With apologies lo Lewis Carroll. 

'Twas SYSOUT and the SFILL toves 

Did SRW in the wabe; 
All FOUTPUT were the borogoves, 

And the BOOT COLD outgrabe. 

"Beware the 2SWAP DROP my son! 

The ROLLS that bite, the DCs that catch! 
Beware the DLIT LOOP and shun 

The NORETCOND Bandersnatch!" 

He tools his OUTER PICK in hand! 

Long time the PCOND PORT he sought. 
So rested he by the IF ELSE tree, 

And FLUSH PMODE in thought. 

And as in PIXBLT thought he stood. 
The 2SWAP DROP, with ROTs of fiame. 

Came TONED through the /MOD wood 
And < BUILDS DOES> as it came! 

One, two! One, two! And through and through 
The OUTER PICK went snicker-snack! 

He left it WARNING and with its head 
He went CPATH back. 

"And hast thou slain the 2SWAP DROP? 

Come Dl + my QUSER boy! 
A TYPED day! Cailooh callay!" 

He RANDOIVI in his joy. 

'Twas SYSOUT and the SFILL toves 

Did SRW in the wabe; 
All FOUTPUT were the borogoves, 

And the BOOT COLD outgrabe. 

— Wayne Cox 
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Rochester Forth Conference 1985 



Forth programmers, project man- 
agers, vendors and evaluators gathered 
in Rochester, New York in June at the 
annual Forth conference held there. 
The directors and staff of the Institute 
for Applied Forth Research assembled 
a broad spectrum of presentors who 
gave us a clear profile of the expertise 
being brought to bear in today's Forth 
community. From applications on the 
space shuttle and automation of an 
entire airport, to object-oriented pro- 
gramming, to putting Forth in hard- 
ware, the papers were intelligent, 
sometimes witty, and occasionally 
mind boggling. 

Elizabeth Rather of Forth Inc. spoke 
on the subject of developing and im- 
plementing a large-scale appUcation. 
Titled "Fifteen Programmers, 400 
Computers, 36,000 Sensors and 
Forth," the talk described work done 
to automate and fully integrate an in- 
ternational airport in the Middle East. 
Major applications such as safety, 
security, climate control, personnel, 
power distribution, runway lighting, 
etc., all reside in one large system, with 
largely common subsystems providing 
facilities to each. Forth lends itself well 
to this method of using modular com- 
mon factors to serve in diverse areas. 

Rather described the months of 
strategy, planning and testing required 
by the project. Much of the work was 
done in Alabama, where the team 
worked in two-weeks-on, one-week-off 
shifts. A huge hangar-Uke room was 
used to house a crowded maze of 
cables and interconnected machines — 
each programmable from any of the 
others — that represented only about a 
third of the actual site equipment. 

After describing the size and com- 
plexity of this task, the speaker went 
on to offer her observations about the 
requirements for success with large 
projects: knowledgeable management, 
and direction; professional skill in all 
parts of the working team; good com- 
munication between the team and man- 
agement, and between management 
and the client; the discipUne to adhere 



to strict standards and conventions; 
and responsibility. She beUeves all of 
these points to be crucial, and that the 
importance of each increases with the 
overall size of the task. 

It would appear that those same in- 
gredients contributed to the success of 
the Forth programmers and scientists 
who worked on experiments performed 
aboard space shuttle missions in 
November 1981 and October 1984. Dr. 
Henry Harris of Pasadena's Jet 
Propulsion Laboratory described his 
work with JPL and the Johnson Space 
Center. The three-year project focused 
on instrument control and, in the end, 
was beset by in-orbit hardware prob- 
lems that would have been insurmoun- 
table if it were not for Forth' s 
interactiveness. 

JPL chose to use Forth for this pro- 
ject because of its adaptability to a 
wide range of needs and conditions. 
They employed intense number- 
crunching, graphics and sophisticated 
arrays of geometrical attitudes, com- 
prising something like a megabyte of 
compiled code. The team implemented 
elements of LISP and Prolog in their 
LMI Forth system, which was then 
used to develop a context-sensitive 
editor and critical constraint checking 
to define permissible instrument 
movements. 

Dr. Harris asserted that, because of 
its modularity, Forth excels in large 
programs. It is good for jqbs with criti- 
cal deadlines (such as a launch date) 
and where interactive control can help 
meet changing conditions (as when it 
was used to save the shuttle experiment 
during hardware failures). Harris then 
presented three myths that have been 
dispelled by recent accomplishments: 
that Forth is only good for small pro- 
grams; that no good software has ever 
been written in Forth; and that if a 
program is larger than 64K, it isn't 
right. By way of one example, JPL's 
Forth on an IBM-XT more accurately 
predicted the space shuttle's position 
than did the mainframe at Johnson 
Space Center. 



All told, the Rochester Forth Con- 
ference provided a platform for about 
sixty speakers to address an audience 
of nearly two hundred. Several de- 
scribed their experiences with creating 
significant extensions to Forth for pur- 
poses of education, artificial intellig- 
ence and adding object orientation, for 
example. It became apparent that 
Forth is a natural seedbed for the best 
features of contemporary computer 
languages, which can be easily imple- 
mented in Forth without the possible 
restrictions of the environment in 
which they originate. Charles Duff dis- 
cussed NEON, an object-oriented lan- 
guage making waves in the greater 
Macintosh community; Pierre 
Moreton presented HFORTH, an 
"EngHsh-like business application 
language"; and Arnold Epstein in- 
trigued listeners with his MAGIC/L, 
which incorporates a Pascal-like syntax 
for ease of maintainence. 

For an afternoon session, the con- 
ference divided into about a dozen 
working groups, special-interest gath- 
erings ranging in size from six to twen- 
ty members. Topics included educa- 
tion. Forth under Unix, robotics, 
image processing and artificial intel- 
ligence, state machines. Forth in hard- 
ware, standards and others. Brief 
reports from the groups indicated a 
variety of progress, with at least one 
working group determining to continue 
research and to report back at next 
year's conference. 

One evening was devoted to a tour of 
the University of Rochester's Labora- 
tory for Laser Energetics, with whose 
cooperation the conference was held. 
For two hours, conference attendees 
inspected the Forth-controlled fusion 
research facility, whose multiple-beam 
laser can be fired at half-hour inter- 
vals. LLE workers were kind enough 
not only to tolerate the presence of 
more than one hundred visitors crowd- 
ing an evening shift, but to answer 
many questions and generally 
humor us. 

The lecture program concluded with 
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a presentation by Lawrence Forsley, 
conference chairman. His paper on 
"nth-Order Defining Words" discus- 
sed clearly a subject that is somewhat 
abstract for many, the definition of 
words that will define other words. 
Although limited by time, Larry also 
managed — with the help of an assis- 
tant — to demonstrate programming 
on the fly, and the difficulties of de- 
bugging an overhead projector. Need- 
less to say, the audience was delighted. 

The final day consisted of a number 
of well-attended exhibits, including 
Forth Inc., Miller Microsystems, Forth 
machines from Novix and Metaforth, 
the Institute for Applied Forth Re- 
search, the Forth Interest Group and 
Dash-Find Assoc., a Forth-specific 
employment referral service. Concur- 
rent tutorials attracted members of the 
community as well as conferees. 

In addition to the caliber of presen- 
tations, integral to the success of the 
Rochester conference was the inspira- 
tion and efficiency of its organizers. 
Congratulations and thanks go to 
Lawrence P. Forsley, conference chair- 
man; Thea Martin, conference coor- 
dinator; and to Jonathan Ross and 
Sherry Snyder of the institute. Their 
friendly and patient efforts were a 
reward to all who attended. 

— Marlin Ouverson 



For details of the approximately 
sixty presentations, watch for the 
published Proceedings of the 1985 
Rochester Forth Conference. 
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For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth- 8 3 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 



For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, and 6502 

• No license fee or royalty for compiled applications 



Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product Information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Ofiice Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelina Flesch, D-7820 Titisee-Neustadt 
UK: System Science Ltd., London EC1A 9JX 
France: Micro-Sigma S.A.R.L., 75008 Paris 
Japan: Southern Pacific Ltd., Yol<oliama 220 
Australia: Wave-onic Associates, 6107 Wilson, W.A, 



Ultra-Fast Text Search Using 

Probabilistic Dictionaries 



John James 
Santa Cruz, California 

Suppose you have a large database 
of text files, such as the documents in a 
lawyer's office, perhaps one or 100 
megabytes or more in dozens or hund- 
reds of separate files. You want to 
search the whole database for any files 
which contain certain words, phrases, 
or AND and OR combinations of 
words and phrases. And you want the 
search to be very fast, almost 
instantaneous. 

I haven't implemented this proce- 
dure, and don't know of anyone who 
has. So it's impossible to know for sure 
how well it will work. Despite the 
uncertainty, this tutorial seems worth 
publishing because it illustrates 
important data structures and concepts 
as well as offering the promise of 
important practical benefits. 

Background: 

The Probabilistic Dictionary 

Used in some spelling checkers, the 
probabilistic dictionary is a most inter- 
esting data structure, and one which 
opens new approaches to a number of 
problems. I'll explain it first with an 
example. Suppose a spelling checker 
needs a dictionary of about 40,000 
English words but only has lOOK bytes 
to store them in RAM and can't afford 
the speed penalty of keeping the words 
on disk, which could require a separate 
disk access for each word being 
checked. A probabilistic dictionary can 
comfortably store the words in two- 
and-a-half bytes each, no matter how 
long the actual words are. 

To build the dictionary, start by 
clearing all the lOOK bytes (800K bits) 
to zero. Now, to add each word to the 
dictionary, use ten different "hashing" 
functions (see below for explanation of 
hashing) on the ASCII strings which 
represent the word. Each hashing 
function will select one of the bits, by 
computing a number between zero and 
799,999 from the ASCII string. Set 
each of the ten selected bits to "1" — 
whether or not it had been set before. 



After all 40,000 EngUsh words have 
been entered in this way, somewhat 
fewer than 400,000 bits — half of the 
800,000 available — will have been set. 
Now, to look up a word, compute the 
ten hash functions on it and see if all 
ten bits are set. If even one of the bits is 
not set, then the word is definitely not 
in the dictionary. If all ten of the bits 
are set, the word is probably in the 
dictionary. But with each bit having 
about a fifty percent probability of 
being set anyway, there is about one 
chance in a thousand of a false hit, 
meaning that a word not in the 
dictionary would be "found." For a 
spelling program, this represents a one- 
in-a-thousand chance that a misspelled 
word would not be detected, a risk 
which may be acceptable. Hence the 
name "probabilistic dictionary." 

Background: Hashing 

The point of "hashing" is to take a 
value, such as an English word or a 
lengthy part number, and transform it 
into an arbitrary number which is a 
more suitable key for indexing into a 
table. In the example, we need to 
transform an English word into a 
number from to 799,999. Of course, 
different words may transform into the 
same number (a "collision"); but we 
try to select a computational procedure 
such that the numbers don't tend to 
bunch up, so there won't be too many 
collisions. 

A common hashing computation is 
to divide by an appropriate number, 
throw away the quotient and take the 
remainder. In the example above, this 
divisor would be a little less than 
800,000, so that the remainder will be 
the right size to select one of the bits. 
The divisor should be a prime number; 
for more background on picking a 
good one, see Knuth^. In the above 
example, ten different divisors would 
be used to select the ten bits in the table 
of 800,000. Note that before division, 
the English word whose ASCII string 
will be the dividend should be left- 
justified or rearranged in some other 
way; otherwise, for short words the 



dividend would be less than 800,000 
and all ten divisions would give the 
same remainder. Picking a good 
hashing function can be tricky. 

Dictionary for Text "Search" 

Now let's use the probabilistic dic- 
tionary for another purpose — text 
searching. The trick is to prepare a 
separate, small dictionary for each file 
in the database. All these little 
dictionaries might fit into RAM or in a 
small file on disk. Then, to search for a 
word in the entire text database, just 
look it up in all of the dictionaries. 
Only one pass through the dictionaries 
is enough, even for a complex search 
involving many words, phrases, and 
AND and OR combinations of them. 

Different kinds of condensed dic- 
tionaries could be used, not only the 
probabilistic dictionary suggested here. 
We suggested this one because it is 
compact, easy to implement and very 
efficient, especially when many 
dictionaries must be searched for the 
same words. 

How big should each of the dic- 
tionaries be? A typical text document 
of about 10,000 words will have only 
about 1500 distinct words; a 3000 word 
dictionary would accommodate much 
more than a 20,000 word document. 
Two-and-a-half bytes per word gives 
7.5K bytes for each document's 
dictionary. And note that each diction- 
ary can actually hold more than 3000 
words and in fact will never overflow, 
although performance degrades 
gradually if too many words are added. 
The actual dictionary size can be 
selected by the end user, although for 
any given database of text files, it's 
easier to keep all dictionaries the same 
size than to have larger ones for large 
documents. 

If 500K of RAM is available, over 
sixty dictionaries of 7.5K each could be 
kept there for faster searches, although 
it wouldn't hurt much to keep these 
dictionaries as a file on disk, since a 
search would need only one pass 
through that file. Each dictionary 
should also contain the name of the file 
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which it represents. Then the search 
through the dictionaries could yield a 
list of file names. These files would 
then be searched word by word (full 
text search), both to eliminate the few 
false hits resulting from the probabilis- 
tic nature of the dictionary, and also to 
locate the words or phrases sought, in 
case the user wanted to examine them 
in context. 



Miscellaneous Hints 

(1) Logical AND and OR searches 
are easily handled, but NOT presents a 
problem because it changes false hits, 
which are tolerable, into false misses, 
which are not. So use the full text 
search before excluding any file from 
consideration. 

(2) Searches are fast. The hash func- 
tions need only be computed once, no 
matter how many dictionaries need to 
be searched, so the time to compute 
them should be imperceptible. And for 
any single word or AND of words, a 
single bit mask can be prepared for 
high-speed test against the dictionaries. 
It's reasonable to estimate that the dic- 
tionary search of dozens of files, even 
long ones, could be completed within a 
second or two. Any full text searches 
required would take longer, but usually 
they can be concurrent with display of 
the output to the user. 

(3) The suggested 7.5K-bytes diction- 
ary size requires hash-function divisors 
around 60K. If your system doesn't 
have an unsigned division available, 
consider getting one bit by another 
method, such as adding the ASCII 
letters of the English word together 
and taking the last bit of the sum. But 
note that this bit will be the same for all 
ten hash values of a given word. 

(4) Phrases can be handled as an 
AND of the words, with false hits 
excluded later in the full text search. 

(5) This method won't find parts of 
words. But common prefixes and 
suffixes can be treated. For example, to 
avoid missing plurals of words, just 
drop the final "s" or "es" before 



entering or searching for any word. 
Some false hits will occur, but they will 
be resolved during the full text search, 
at a modest cost in performance. Let 
users know that irregular plurals must 
still be searched explicitly, with an 
AND. 

(6) In the full text search, you can do 
better than looking at every letter. For 
example, when you are searching text 
for a word, look at the last-letter 
position in the text first. A quick 
lookup in a small table specially 
prepared for the word being sought 
will usually show that that particular 
letter is not contained anywhere in the 
word; and in that case, the inter- 
mediate character positions don't need 
to be examined at all, since they could 
not possibly be part of the word being 
sought. Many other refinements have 
been developed, since text searching 
has such practical importance. 

(7) Include each file's last- 
modification date and time with its 
dictionary. Then the search program 
can examine the directory of files, to 
automatically regenerate the dictionary 
for any new or changed text file. This 
mechanism will also generate the 
dictionary initially, the first time the 
program is run. 
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• ALABAMA 

Huntsville FIG Chapter 

Call Tom Konantz 
205/881-6483 

• ALASKA 

Kodiak Area Chapter 

Call Horace Simmons 
907/486-5049 



Bay Area Chapter 

Silicon Valley Chapter 
Monthly, 4th Sat., 
FORML 10 a.m., FIG 1 p.m. 
ABC Christian School Aud. 
Dartmouth & San Carlos Ave. 
San Carlos 

Call John Hall 415/532-1115 
or call the FIG Hotline: 
408/277-0668 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 



• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

Tucson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead 

602/323-9763 

• ARKANSAS 

Central Arkansas Chapter 

Twice Monthly: 2nd Sat., 2 p.m. & 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 

• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey /Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
FuUerton Savings 
Talbert & Brookhurst 

Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd. & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy Kelly 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Rm. A 
Call Tom Ghormley 
916/444-7775 



• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sarns 
303/477-5955 

• CONNECTICUT 

Central Connecticut Chapter 

Call Charles Krajewski 
203/344-9996 

• FLORIDA 

Orlando Chapter 

Every two weeks, Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Southeast Florida Chapter 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tampa Bay Chapter 

Monthly, 1st Wed., p.m. 
Call Terry McNay 
813/725-1245 

• GEORGIA 

Atlanta Chapter 

Call Ron Skelton 
404/393-8764 

• ILLINOIS 

Cache Forth Chapter 

Call Clyde W. PhiUips, Jr. 
Oak Park 
312/386-3147 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 

217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 

312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 

312/885-8092 



• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 

Fort Wayne Chapter 

Monthly, 2nd Wed., 7 p.m. 
Indiana/Purdue Univ. Campus 
Rm. B71, Neff Hall 
Call Blair MacDermid 
219/749-2042 

• IOWA 

Iowa City Chapter 

Monthly, 4th Tues. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

Central Iowa FIG Chapter 

Call Rodrick A. Eldridge 
515/294-5659 

Fairfield FIG Chapter 

Monthly, 4th day, 8:15 p.m. 
Call Gurdy Leete 
515/472-7077 

• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 

• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8922 

• MASSACHUSETTS 



Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 

• MICHIGAN 
Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 

• MINNESOTA 
MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
Minneapolis, MN 
Call Fred Olson 
612/588-9532 



• MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Inst. 
Mag Conference Center 
Call Linus Orth 
816/444-6655 
St. Louis Chapter 
Monthly, 1st TUes., 7 p.m. 
Thornhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
EUisville, MO 63011 

• NEVADA 

Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 

Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Call Rick Granfield 
505/296-8651 

• NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 

Hutchinson Hall 

Univ. of Rochester 

Call Thea Martin 

716/235-0168 

Rockland County Chapter 

Call Elizabeth Gormley 

Pearl River 

914/735-8967 

Syracuse Chapter 

Monthly, 3rd Wed., 7 p.m. 

Call Henry J. Fay 

315/446-4600 

• OHIO 

Athens Chapter 

Call Isreal Urieli 
614/594-3731 

Qeveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 
513/831-0142 



Dayton Chapter 

Twice monthly, 2nd Tues., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 

• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 

• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial Park 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 

• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 4th Sat., 10 a.m. 
Drexel University, Stratton Hall 
Call Melonie Hoag 
215/895-2628 



• TENNESSEE 

East Tennessee Chapter 

Monthly, 2nd Tue., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Turnpike, Oak Ridge 
Call Richard Secrist 
615/693-7380 

• TEXAS 

Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 
Permian Basin Chapter 

Call Carl Bryson 

Odessa 

915/337-8994 

•UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 



• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Don VanSyckel 
802/388-6698 

• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 2nd Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/860-9260 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 

• WISCONSIN 

Lake Superior FIG Chapter 

Call Allen Anway 
715/394-8360 
MAD Apple Chapter 
Contact Bill Horzon 
129 S. Yellowstone 
Madison, WI 53705 

FOREIGN 

• AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 
Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 



Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 Nalinnes 

Belgium 

071/213858 



• CANADA 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 



Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg. 
Rm. 312 

McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 

Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 



• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 



• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 



• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61) 44.03.06 



• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 

• IRELAND 

Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 

• ITALY 
FIG Italia 

Contact Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

• JAPAN 

Japan Chapter 

Contact Toshio Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo, Bunkyo 113 
812-2111 ext. 7073 

• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 



• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 



SPECIAL GROUPS 

Apple Corps Forth Users 
Chapter 

Twice Monthly, 1st & 

3rd Tues., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

nCGRAPH 

Call Howard Pearlmutter 
408/425-8700 
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FORTH Dimensions 



Seventh Annual 



Forth National Convention 

September 20-21, 1985 

Hyatt Rickeys, Palo Alto 

4219 El Camino Real, Palo Alto, California 



Forth Elements Conference Program 

EARTH • AEROSPACE • FIRE • WATER 

Major Forth conference covering Earth resources, aerospace projects, fire and 
fusion in industry, and water hydroprojects. Learn about these successful 
Forth applications during the two-day conference. 

Convention preregistration $10.00; or $15.00 at the door. 

Banquet $32.00 

Special Convention room rates are available at Hyatt Rickeys. 

Telephone direct to Hyatt reservations by calling 800 228-9000 and request 
special Forth interest Group rates for September 20th and 21st. 



More information Call FIG Hotline 408 277-0668 

Be a conference speaker Call FIG Hotline 408 277-0668 

Exhibitor information Call FIG Hotline 408 277-0668 
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